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