diff options
| author | sijanec <sijanecantonluka@gmail.com> | 2020-06-11 14:47:44 +0200 |
|---|---|---|
| committer | sijanec <sijanecantonluka@gmail.com> | 2020-06-11 14:47:44 +0200 |
| commit | b3eca771ea610cbe7320fedfcd6e9de19b8bae2a (patch) | |
| tree | e8d880d45a8d64a8613b1ea1582a4dce9b614cbb /SRC.FOR | |
| parent | initial commit (diff) | |
| download | ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.tar ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.tar.gz ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.tar.bz2 ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.tar.lz ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.tar.xz ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.tar.zst ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.zip | |
Diffstat (limited to 'SRC.FOR')
| -rw-r--r-- | SRC.FOR | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -0,0 +1,10 @@ + SUBROUTINE SRC(IPA,N,IND) + DIMENSION IPA(1),IP(10) + DO 10 I=1,N + A=IPA(I) + CALL DEBI(A,B) +10 IP(I)=B + CALL VZV(IP,N,IS) + CALL NAST(IS,IND) + RETURN + END |