File indexing completed on 2018-03-02 18:38:16 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
6d54cf9ca1 Ed H*0001 #include "CAL_OPTIONS.h"
a63ed37559 Patr*0002
0003 integer function cal_NumInts(
0004 I date_a,
0005 I date_b,
0006 I timeint,
0007 I mythid
0008 & )
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031 implicit none
0032
0033
0034
0035 #include "cal.h"
0036
0037
0038
0039 integer date_a(4)
0040 integer date_b(4)
0041 integer timeint(4)
0042 integer mythid
0043
0044
0045
0046 _RL timeintsecs
0047 integer passed(4)
0048 _RL passedsecs
0049 integer ierr
0050
0051
0052
0053 if ( timeint(4) .eq. -1 ) then
0054 call cal_TimePassed( date_a, date_b, passed, mythid )
0055
0056 call cal_ToSeconds( passed, passedsecs, mythid )
0057 call cal_ToSeconds( timeint, timeintsecs, mythid )
0058
0059 cal_NumInts = abs( passedsecs/timeintsecs )
0060 else
0061 ierr = 2501
0062 call cal_PrintError( ierr, mythid )
0063 stop ' stopped in cal_NumInts.'
0064 endif
0065
0066 return
0067 end