COSMOS v7.655  COSMOSv7655
(AirShowerMC)
cwriteParam.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine cwriteparam (io, force)
 

Function/Subroutine Documentation

◆ cwriteparam()

subroutine cwriteparam ( integer  io,
integer  force 
)

Definition at line 4 of file cwriteParam.f.

References param.

Referenced by cbeginrun(), chookbgrun(), csavestatus(), cwhatjob(), and showparam().

4  use modefield
5  use modmcsparam
6  implicit none
7 #include "ZincForNameL.h"
8  integer io ! input. output logical dev. #. ErrorOut --> stderr
9  integer force ! input. if non zero, Hidden parameters are written.
10  ! hidden ones are also written when Hidden=T
11 
12  write(io, param)
13  if(hidden .or. force .ne. 0 ) then
14  write(io, hparam)
15  endif
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer op real x1h common Zfitc * param
Definition: Zfit.h:15
Here is the caller graph for this function: