Searched refs:tcode (Results 1 – 1 of 1) sorted by relevance
1 subroutine timer (tcode) argument34 character*8 tcode local42 if (tcode .eq. ccode(i)) exit43 if (ii .eq. icd + 2) call error ('timer ', tcode, 0)