Advertisement
Guest User

Untitled

a guest
Jul 3rd, 2019
107
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.       read(2,*) nbl
  2.       read(2,*) (idim(n),jdim(n),n=1,nbl)
  3.       do n=1,nbl
  4.         read(2,*) ((x(i,j,n),i=1,idim(n)),j=1,jdim(n)),
  5.      +            ((y(i,j,n),i=1,idim(n)),j=1,jdim(n))
  6.       enddo
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement