source:
LMDZ.3.3/trunk/libf/dyn3d/substr.F
@
242
Last change on this file since 242 was 2, checked in by , 25 years ago | |
---|---|
|
|
File size: 197 bytes |
Rev | Line | |
---|---|---|
[2] | 1 | SUBROUTINE substr(np,px,py,pz) |
2 | IMPLICIT NONE | |
3 | ||
4 | INTEGER np | |
5 | REAL px(np),py(np),pz(np) | |
6 | ||
7 | INTEGER i | |
8 | ||
9 | DO i=1,np | |
10 | pz(i)=px(i)-py(i) | |
11 | ENDDO | |
12 | ||
13 | RETURN | |
14 | END |
Note: See TracBrowser
for help on using the repository browser.