| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | stdout |
Writes the usage of the program to stdout |
subroutine print_usage(stdout) implicit none integer, intent(in) :: stdout !! Writes the usage of the program to stdout write (stdout, '(A)') "Usage:" write (stdout, '(A)') " w90chk2chk.x ACTION [SEEDNAME]" write (stdout, '(A)') "where ACTION can be one of the following:" write (stdout, '(A)') " -export" write (stdout, '(A)') " -u2f" write (stdout, '(A)') " Convert from unformatted (standard) format to formatted format, to export" write (stdout, '(A)') " the checkpoint file on a different machine." write (stdout, '(A)') " The seedname.chk file is read and the seedname.chk.fmt file is generated." write (stdout, '(A)') " -import" write (stdout, '(A)') " -f2u" write (stdout, '(A)') " Convert from formatted format to unformatted (standard) format, to import" write (stdout, '(A)') " the checkpoint file seedname.chk.fmt from a different machine." write (stdout, '(A)') " The seedname.chk.fmt file is read and the seedname.chk file is generated." end subroutine print_usage