Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- read(2,*) nbl
- read(2,*) (idim(n),jdim(n),n=1,nbl)
- do n=1,nbl
- read(2,*) ((x(i,j,n),i=1,idim(n)),j=1,jdim(n)),
- + ((y(i,j,n),i=1,idim(n)),j=1,jdim(n))
- enddo
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement