home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.update.uu.se
/
ftp.update.uu.se.2014.03.zip
/
ftp.update.uu.se
/
pub
/
rainbow
/
msdos
/
decus
/
RB101
/
idate.for
< prev
next >
Wrap
Text File
|
1995-05-19
|
373b
|
24 lines
$STORAGE: 2
$NOFLOATCALLS
SUBROUTINE IDATE(IMON,IDAY,IYEA)
C FILL IN INITIAL DEFAULT DATE
C DUMMY AT FIRST TO 4/1/84
INTEGER*2 IDYR,IDMO,IDDY,IYEA,IMON,IDAY
COMMON/DEFDAT/IDYR,IDMO,IDDY
IF(IDYR.LE.0)GOTO 10
IMON=IDMO
IDAY=IDDY
IYEA=IDYR
RETURN
10 CONTINUE
IYEA=84
IMON=1
IDAY=1
CALL SDATE(IYEA,IMON,IDAY)
IYEA=IYEA-1900
RETURN
END