cwriteParam.f

Go to the documentation of this file.

!             To write parameters on the error output
!
      subroutine cwriteparam(io, force)
      use modefield
      use modmcsparam
      implicit none
#include "ZincForNameL.h"
      integer io      !  input.  output logical dev. #. ErrorOut --> stderr
      integer force   !  input.  if non zero, Hidden parameters are written.
                      !          hidden ones are also written when Hidden=T

      write(io, param)
      if(hidden .or. force .ne. 0 ) then
         write(io, hparam)
      endif
      end