This is a portion of a program i am working on.
-------------------------
write(*,*) psi,t,NOB,pi
qn=IDINT((psi-t)*NOB/(2*pi)+0.5d0)
write(*,*) t,qn
write(*,*) 'line'
-----------------
output for first write statement:
2.0943951023931953 0.0000000000000000 3...