Source module last modified on Wed, 13 Jul 2005, 16:20;
HTML image of Fortran source automatically generated by
for2html on Mon, 29 May 2006, 15:06.
INCLUDE 'ness_com.inc'
integer*4 lhint,id_slit,nlist ! ,SLIT_SIZE
character*4 t_slit
parameter(id_slit=1, t_slit= 'SLIT')
parameter(lhint=60)
character*5 slitcomm(6)
character*(lhint) slithint(6)
common /slitlist/ slitcomm,slithint,nlist
STRUCTURE /SLIT/
character*32 name
real*8 dist,axi,axv
real*8 size(3),sta(3),gon(3)
real*8 pos(3),rot(3,3),rot1(3,3)
logical*4 map(3),map1(3),simple
integer*4 count
integer*4 shape
integer*4 ndum ! dummy integer for data alignment
end structure
# PARAMETER (SLIT_SIZE=336)