istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

Add wave frequency to parameters stored in file headers

Browse Source
This commit is contained in:
Lorenzo Figini 2021-12-22 17:23:32 +01:00 committed by Michele Guerini Rocco
parent efd4fc51e5
commit 9a6063389e
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/gray_params.f90
View File

@ -201,9 +201,9 @@ contains
write(strout(13), '("# ANT ibeam iox psi chi:",4(1x,g0.4))') & write(strout(13), '("# ANT ibeam iox psi chi:",4(1x,g0.4))') &
params%antenna%ibeam, params%antenna%iox, & params%antenna%ibeam, params%antenna%iox, &
params%antenna%psi, params%antenna%chi params%antenna%psi, params%antenna%chi
write(strout(14), '("# ANT alpha beta power:",3(1x,g0.3))') & write(strout(14), '("# ANT alpha beta power fghz:",4(1x,g0.3))') &
params%antenna%alpha, params%antenna%beta, & params%antenna%alpha, params%antenna%beta, &
params%antenna%power params%antenna%power, params%antenna%fghz
write(strout(15), '("# ANT x0 y0 z0:",3(1x,g0.3))') params%antenna%pos write(strout(15), '("# ANT x0 y0 z0:",3(1x,g0.3))') params%antenna%pos
write(strout(16), '("# ANT wx wy Rcix Rciy psiw psir:",6(1x,g15.5e1))') & write(strout(16), '("# ANT wx wy Rcix Rciy psiw psir:",6(1x,g15.5e1))') &
params%antenna%w, params%antenna%ri, params%antenna%phi params%antenna%w, params%antenna%ri, params%antenna%phi