From 37fc0b25d852dba0ce7a329678c5c30a028be00f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Anton=20=C5=A0ijanec?= Date: Mon, 30 Mar 2020 15:24:15 +0200 Subject: initial commit --- ICH.FOR | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 ICH.FOR (limited to 'ICH.FOR') diff --git a/ICH.FOR b/ICH.FOR new file mode 100644 index 0000000..da6ccfe --- /dev/null +++ b/ICH.FOR @@ -0,0 +1,15 @@ + SUBROUTINE ICH(CH,IZV,N) + CHARACTER CH(10)*40 + DIMENSION IZV(1) + CALL PKURZ(3,32,IND) + WRITE(*,1) +1 FORMAT('Vr Zv') + DO 10 I=1,N + II=2*I+3 + CALL PKURZ(II,22,IND) + WRITE(*,5)I,IZV(I),CH(I) +5 FORMAT(10X,I2,'. ',I2,1X,A40) +10 CONTINUE + RETURN + END + -- cgit v1.2.3