Searched defs:environment_start (Results 1 – 1 of 1) sorted by relevance
50 SUBROUTINE environment_start( code ) subroutine52 CHARACTER(LEN=*), INTENT(IN) :: code54 LOGICAL :: exst, debug = .false.55 CHARACTER(LEN=80) :: code_version, uname56 CHARACTER(LEN=6), EXTERNAL :: int_to_char57 INTEGER :: ios, crashunit58 INTEGER, EXTERNAL :: find_free_unit