Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program test
- implicit none
- integer, parameter :: DP = kind(0.0d0)
- double precision, dimension(3) :: wlocal
- wlocal = 0.0_DP
- write(*,*) wlocal
- end program test
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement