SPEED
READ_FILE_MPGM_SYS.f90 File Reference

Go to the source code of this file.

Functions/Subroutines

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.
 

Function/Subroutine Documentation

◆ read_file_mpgm_sys()

subroutine read_file_mpgm_sys ( character*70  filec,
integer*4  sdofnum,
integer*4, dimension(sdofnum)  n_monitor_pgm,
integer*4, dimension(sdofnum)  el_monitor_pgm,
real*8, dimension(sdofnum)  xr_monitor_pgm,
real*8, dimension(sdofnum)  yr_monitor_pgm,
real*8, dimension(sdofnum)  zr_monitor_pgm,
  axi 
)

Reads files such as MLST.input, MLST.position or MPGM.input.

Author
Ilario Mazzieri
Date
September, 2013
Version
1.0
Parameters
[in]filecfile name to read
[in]SDOFnumnumber of monitors
[out]n_monitor_pgmid monitor number (id spectral node)
[out]el_monitor_pgmid monitor element (id grid element)
[out]xr_monitor_pgmx-coordinate for monitor
[out]yr_monitor_pgmy-coordinate for monitor
[out]zr_monitor_pgmz-coordinate for monitor

Definition at line 31 of file READ_FILE_MPGM_SYS.f90.

34
35 implicit none
36
37 character*70 :: filec
38 character*100000 :: input_line
39
40 integer*4 :: SDOFnum
41 integer*4 :: i
42 integer*4 :: trash
43 integer*4 :: ileft,iright
44 integer*4 :: status
45
46 integer*4,dimension(SDOFnum) :: n_monitor_pgm
47 integer*4,dimension(SDOFnum) :: el_monitor_pgm
48
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
53
54
55 open(20,file=filec)
56 read(20,'(A)',iostat = status) input_line
57 ileft = 1
58 iright = len(input_line)
59 read(input_line(ileft:iright),*)sdofnum
60
61 do i = 1,sdofnum
62 read(20,'(A)',iostat = status) input_line
63 if (status.ne.0) exit
64
65 ileft = 1
66 iright = len(input_line)
67 read(input_line(ileft:iright),*)trash,n_monitor_pgm(i),el_monitor_pgm(i),&
68 xr_monitor_pgm(i),yr_monitor_pgm(i),zr_monitor_pgm(i),axis_rot(i)
69
70 enddo
71
72 close(20)
73
74 return
75

Referenced by read_system_position().

Here is the caller graph for this function: