Contact: aviboots(AT)netvision.net.il
41,786 questions
54,471 answers
573 users
program Example implicit none integer :: addr real :: r r = 0.5 addr = loc(r) print *, addr end program ! run: ! ! 816939768 !