*ident sun */ ---------------------------------------------------- */ machine-dependent changes to bbc */ for sun workstations */ be sure to use '*set sw' */ -------------------------------------- */ elapsed time *d bbc.1061 dimension tarray(2) time=etime(tarray) */ date *d bbc.1071 dimension iarray(3) call idate(iarray) iarray(3)=iarray(3)-1900 write(hdate,'(i2,1h/,i2,1h/,i2)') iarray(2),iarray(1),iarray(3) */ wall clock time *d bbc.1081 character*24 sdate call fdate(sdate) htime=sdate(12:19) */ fatal error exit *d bbc.1094,1095 stop 77