source: LMDZ.3.3/trunk/libf/dyn3d/substr.F @ 2

Last change on this file since 2 was 2, checked in by lmdz, 25 years ago

Initial revision
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 197 bytes
RevLine 
[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.