320 |
& ' cal_CheckDate: Leap year identifier not correct!' |
& ' cal_CheckDate: Leap year identifier not correct!' |
321 |
else if (nerrcode .eq. 7) then |
else if (nerrcode .eq. 7) then |
322 |
print*, |
print*, |
323 |
& ' cal_CheckDate: Calendar date before predefined reference', |
& ' cal_CheckDate: Calendar date before predefined reference' |
324 |
& ' date!' |
& //' date!' |
325 |
else if (nerrcode .eq. 8) then |
else if (nerrcode .eq. 8) then |
326 |
print*, |
print*, |
327 |
& ' cal_CheckDate: First component not in yymmdd format!' |
& ' cal_CheckDate: First component not in yymmdd format!' |