SPEED
WRITE_FILE_MPGM_SYS.f90
Go to the documentation of this file.
1! Copyright (C) 2012 The SPEED FOUNDATION
2! Author: Ilario Mazzieri
3!
4! This file is part of SPEED.
5!
6! SPEED is free software; you can redistribute it and/or modify it
7! under the terms of the GNU Affero General Public License as
8! published by the Free Software Foundation, either version 3 of the
9! License, or (at your option) any later version.
10!
11! SPEED is distributed in the hope that it will be useful, but
12! WITHOUT ANY WARRANTY; without even the implied warranty of
13! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14! Affero General Public License for more details.
15!
16! You should have received a copy of the GNU Affero General Public License
17! along with SPEED. If not, see <http://www.gnu.org/licenses/>.
18
30
31
32 subroutine write_file_mpgm_sys(filec,nmon,n_mon,el_mon,xr_mon,yr_mon,zr_mon,axis_rot)
33
34
35 implicit none
36
37 character*70 :: filec
38
39 integer*4 :: nmon, i
40
41 integer*4,dimension(nmon) :: n_mon
42 integer*4,dimension(nmon) :: el_mon
43
44 real*8,dimension(nmon) :: xr_mon
45 real*8,dimension(nmon) :: yr_mon
46 real*8,dimension(nmon) :: zr_mon
47 real*8,dimension(nmon) :: axis_rot
48
49
50 open(20,file=filec)
51 write(20,'(I20)')nmon
52
53 do i = 1,nmon
54 write(20,'(1I20,1X,1I20,1X,1I20,1X,1E20.12,1X,1E20.12,1X,1E20.12,1X,1E20.12)') &
55 i,n_mon(i),el_mon(i),&
56 xr_mon(i),yr_mon(i),zr_mon(i),axis_rot(i)
57
58 enddo
59
60 close(20)
61
62 return
63
64 end subroutine write_file_mpgm_sys
65