C DAYFLD.FTN 27-AUG-78 RDT C SUBROUTINE DAYFLD(IDOW,DAYSTR,NCHDAY) C C+ C CALL DAYFLD(IDOW,DAYSTR,NCHDAY) C C INPUT: C IDOW - DAY OF WEEK (1-7; 1 FOR SUNDAY) C OUTPUT: C DAYSTR - ASCII STRING FOR DAY OF WEEK (E.G., 'SUNDAY'); C UP TO 9 BYTES MAY BE INSERTED; TRAILING BYTES NOT BLANK FILLED C NCHDAY - NUMBER OF CHARACTERS IN DAY STRING C- C C LOGICAL*1 DAYSTR,STRING REAL*4 STREQV DIMENSION DAYSTR(9),STRING(32),STREQV(8),NDAYF(8) C EQUIVALENCE (STRING,STREQV) C C STRING OF DAY PREFIXES, AND SUFFIX STRING DATA STREQV/'SUNM','ONTU','ESWE','DNES','THUR','SFRI','SATU', 1 'RDAY'/ C STARING POSITION OF EACH DAY'S PREFIX, PLUS LAST POSITION+1 DATA NDAYF/1,4,7,11,17,22,25,30/ C C NCHDAY=0 C SET FIRST AND LAST STRING POSITION FOR THIS DAY'S PREFIX IB=NDAYF(IDOW) IE=NDAYF(IDOW+1)-1 C INSERT PREFIX INTO RETURNED STRING DO 50 I=IB,IE,1 NCHDAY=NCHDAY+1 50 DAYSTR(NCHDAY)=STRING(I) C C INSERT SUFFIX INTO RETURNED STRING NCHDAY=NCHDAY+3 DAYSTR(NCHDAY-2)=STRING(30) DAYSTR(NCHDAY-1)=STRING(31) DAYSTR(NCHDAY)=STRING(32) C RETURN END