heading.f90

Go to the documentation of this file.

 
 
SUBROUTINE heading(extension)
  USE vmec_main, ONLY: rprec
  USE vparams, ONLY: nthreed
  USE vmec_params, ONLY: version_
  IMPLICIT NONE
 
  CHARACTER(LEN=50), PARAMETER :: banner     = ' THIS IS VMEC2000, A 3D EQUILIBRIUM CODE, VERSION '
  CHARACTER(LEN=*),  PARAMETER :: VersionID1 = ' Lambda: Full Radial Mesh. L-Force: hybrid full/half.'
 
  CHARACTER(LEN=*), intent(in) :: extension
 
  CHARACTER(LEN=50) :: Version
  LOGICAL :: lfirst
 
  CHARACTER(LEN=100) :: computer, os, os_release
 
  !     Open output files
  CALL open_output_files (extension, lfirst)
 
  IF (lfirst) then
     WRITE (*,'(2a)') '  PROCESSING INPUT.', trim(extension)
 
     version = trim(adjustl(version_))
 
     ! SAL some weird error about file not being ready
     CALL flush(nthreed)
 
     WRITE(nthreed,'(a,1x,a,/,a,/)') trim(banner), trim(version), trim(versionid1)
     WRITE(*,'(1x,a,1x,a,/,1x,a,/)') trim(banner), trim(version), trim(versionid1)
  end if
 
END SUBROUTINE heading