Searched refs:KWMC (Results 1 – 1 of 1) sorted by relevance
5 integer, parameter :: KWMC = 666 variable8 if (KWMC .eq. 777) then11 print *, 'pp034.F no: ', KWMC