1*-----------------------------------------------------------------------
2*     CWEEK
3*-----------------------------------------------------------------------
4*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
5*-----------------------------------------------------------------------
6      CHARACTER*(*) FUNCTION CWEEK(IW)
7
8      CHARACTER WEEK(7)*9
9
10      SAVE
11
12      DATA      WEEK/'SUNDAY   ','MONDAY   ','TUESDAY  ','WEDNESDAY',
13     +               'THURSDAY ','FRIDAY   ','SATURDAY '/
14
15
16      IF (.NOT.(1.LE.IW .AND. IW.LE.7)) THEN
17        CALL MSGDMP('E','CWEEK ','IW IS OUT OF RANGE (1-7).')
18      END IF
19
20      CWEEK=WEEK(IW)
21
22      END
23