-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathshareMods.f90
More file actions
19 lines (18 loc) · 805 Bytes
/
shareMods.f90
File metadata and controls
19 lines (18 loc) · 805 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!80
module controlMod !{{{
logical :: rotate, translate, record, scrot, run, impulseControl, contact
logical :: cameraContact
integer :: contactType, Ofollow
end module controlMod !}}}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!80
module options !{{{
character(80) :: FILobj, FILscreen
end module options !}}}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!80
module inputShareMod !{{{
integer :: col(8) ! column identifiers from data file
real(4) :: rng(2,8) ! ranges for each column
logical :: h ! flag for HSV
character(40) :: md ! mode
end module inputShareMod !}}}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!80