Advertisement
Guest User

Untitled

a guest
Aug 22nd, 2014
215
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.61 KB | None | 0 0
  1. integer , intent(in) :: nLOW
  2. integer , intent(in) :: nUP
  3. logical , dimension(nLOW:nUP) :: leastSQUARE = .false.
  4.  
  5. integer :: I
  6. integer , intent(in) :: nLOW
  7. integer , intent(in) :: nUP
  8. logical , dimension(nLOW:nUP) :: leastSQUARE = (/ (.false., I = nLOW:nUP) /)
  9.  
  10. integer , intent(in) :: nLOW
  11. integer , intent(in) :: nUP
  12. logical , dimension(1:100) :: leastSQUARE = .false.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement