diff --git a/ppl/symlib/getsym.F b/ppl/symlib/getsym.F index b78e4b9fe..c5c9b14bc 100644 --- a/ppl/symlib/getsym.F +++ b/ppl/symlib/getsym.F @@ -92,7 +92,7 @@ SUBROUTINE GETSYM(STR,LABEL,NC,IER) CALL DATE_AND_TIME(adate, atime, zone, ival) WRITE (label, 101) ival(5), ival(6), ival(7) - 101 FORMAT (I2.2, ':', I2.2 ':', I2.2) + 101 FORMAT (I2.2, ':', I2.2, ':', I2.2) NC = 8 ELSE IF(STR.EQ.'DATE')THEN