32 SDOFnum,n_monitor_pgm,el_monitor_pgm,&
33 xr_monitor_pgm,yr_monitor_pgm,zr_monitor_pgm,axis_rot)
38 character*100000 :: input_line
43 integer*4 :: ileft,iright
46 integer*4,
dimension(SDOFnum) :: n_monitor_pgm
47 integer*4,
dimension(SDOFnum) :: el_monitor_pgm
49 real*8,
dimension(SDOFnum) :: xr_monitor_pgm
50 real*8,
dimension(SDOFnum) :: yr_monitor_pgm
51 real*8,
dimension(SDOFnum) :: zr_monitor_pgm
52 real*8,
dimension(SDOFnum) :: axis_rot
56 read(20,
'(A)',iostat = status) input_line
58 iright = len(input_line)
59 read(input_line(ileft:iright),*)sdofnum
62 read(20,
'(A)',iostat = status) input_line
66 iright = len(input_line)
67 read(input_line(ileft:iright),*)trash,n_monitor_pgm(i),el_monitor_pgm
68 xr_monitor_pgm(i),yr_monitor_pgm(i),zr_monitor_pgm
subroutine read_file_mpgm_sys(filec, sdofnum, n_monitor_pgm, el_monitor_pgm, xr_monitor_pgm, yr_monitor_pgm, zr_monitor_pgm, axi
Reads files such as MLST.input, MLST.position or MPGM.input.