C NCLFORTSTART
SUBROUTINE awssi(nday,day)
integer nday, day(nday)
C NCLEND

C NCLFORTSTART
SUBROUTINE awssi2(nday,day, out)
integer nday, day(nday), out(nday)
C NCLEND