Searched defs:read_cards (Results 1 – 2 of 2) sorted by relevance
104 SUBROUTINE read_cards ( prog, unit ) subroutine111 INTEGER, INTENT(IN), optional :: unit113 CHARACTER(len=2) :: prog ! calling program ( PW, CP, WA )114 CHARACTER(len=256) :: input_line115 CHARACTER(len=80) :: card116 CHARACTER(len=1), EXTERNAL :: capital117 LOGICAL :: tend118 INTEGER :: i local130 100 CALL read_line( input_line, end_of_file=tend )230 END SUBROUTINE read_cards argument
1799 VOID read_cards() in read_cards() function