Lines Matching refs:icd

40         do i = 1, icd + 2
43           if (ii .eq. icd + 2) call error ('timer   ', tcode, 0)
50         if (ii .eq. icd) then 
52           do i = 1, icd
62           cpu0(icd)   = secs()
63           nacess(icd) = 1
72         if (ii .eq. icd+2) then
83         if (ii .ne. icd+1) then
96         if (ccode(icd) .eq. 'Total   ') return  ! redundant print
103         cpu(icd) = secs() - cpu0(icd)
104         ccode(icd) = 'Total   '
108         do i = 1, icd
114         do i = 1, icd
115           ratio(i) = 100.d0 * cpu(i) / cpu(icd)
122      &                                                   i=1,icd-4)
125      &                                                   i=icd-3,icd-1)
128      &                                                   i=icd,icd)