From 3ce56dcdea40ccbdede7e3bbddb23462e554512c Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Fri, 3 Jan 2014 16:22:24 +0100 Subject: [PATCH] Forgot file --- example/input/input.irp.f | 22 ++++++++++++++++++++++ example/uvwt.irp.f | 1 + man/man1/irpf90.1.gz | Bin 1329 -> 1332 bytes 3 files changed, 23 insertions(+) create mode 100644 example/input/input.irp.f diff --git a/example/input/input.irp.f b/example/input/input.irp.f new file mode 100644 index 0000000..2f5049a --- /dev/null +++ b/example/input/input.irp.f @@ -0,0 +1,22 @@ + BEGIN_PROVIDER [ integer, d1 ] +&BEGIN_PROVIDER [ integer, d2 ] +&BEGIN_PROVIDER [ integer, d3 ] +&BEGIN_PROVIDER [ integer, d4 ] +&BEGIN_PROVIDER [ integer, d5 ] + + print *, 'd1' + read(*,*) d1 + + BEGIN_TEMPLATE + print *, '$X' + read(*,*) $X + ASSERT ( $X > $Y ) + + SUBST [ X, Y ] + d2; d1;; + d3; d2;; + d4; d3;; + d5; d4;; + END_TEMPLATE +END_PROVIDER + diff --git a/example/uvwt.irp.f b/example/uvwt.irp.f index 32803b2..f8be7e8 100644 --- a/example/uvwt.irp.f +++ b/example/uvwt.irp.f @@ -20,6 +20,7 @@ BEGIN_PROVIDER [ integer, u2 ] integer :: fu ! u2 = fu(d3,d4) u2 = d3+d4+1 + ASSERT (u2 > d3) END_PROVIDER integer function fu(x,y) diff --git a/man/man1/irpf90.1.gz b/man/man1/irpf90.1.gz index 19b980fd63735b02d03d8b8f66004f7460eb41ab..0bd7baaa3930211d2fe926a0a883b050f17ee171 100644 GIT binary patch literal 1332 zcmV-41QlwBA7@jHi-Wi@fI<-ry&=YIJPgZKhIa|IRO3fKxI40j@h z%;*w~h@7btCyYqf;+qRtz&>;&T1{X)9KDSPqcQ$|gVDRmXb5-fn}D%k{Sm^|^8N2a z7{SE_T#SP85I+|zh(5w%`gzXU>v#a~wQ+`QFnVivSxU8q+R}emR)tKYgO$k83Y7?O z8kQWX1e#^hpg^TnD4n6coIPZ&BeVF9cn zAn$PXBr4BZ_&5}2c-x5nI(kOAwr7HYN5i zm52_!grWA1Vi8AwFK(An7_p#n7>2>HTfYt7F=?s{3;c_&oYcyqs#9!EE0i>wM>nf* zxejj^EU?v)k@{gLQ(*!4PrV`3P8zLBit0X>Ne)(0qhu0k+h$@thAY@f4lWn}*-!8q zyYda-Cf8}eP!>R`jQ~i6$_r<6ux%HXgXbiXby_w)C;M^L6CLJv~w6d>&TecS{jax6`W_brrmXu(OM2gLAQKPr4W$C%LZCyjVGFgb8bIpm@ z>fM4wr+v=6<;+D=pLCc!w4E37I|^%K)a5aN8!TH=%o!FBuM3A$ z??I4NfH7(6S(FHB9J9XH=7DTG@?&51Y%7kXP{^%fQ~C#P3_sX*Y9+d?P_SwF`75YFsA1aqLixdME#nw`1@NG@Y{G^)SpQ2fW!FoPdq4DXWK` ziDheIiRFj>Gy!ZjBt|FPL(+9Bdb=LK>H=F(qao3cV{O?Vn_3pMfC<@*5aOxOafZ3< z$f%r-lqbQu6`bTEc|c%fQLgtEQ4G-t2q;VW-CKjR_COVE#6LAgF+GW>x}p-OED_c= z{#lQb$1{4vP;wF8j#bZ^st@4KimWamBXsj!wxz5Qxn+q~2z2BP*qrL#CPr32HLPh3 zQ2J{x!QoaBP*Rf4)V!6IND%OnWAxDRN4?})4Nlid&Suh91;(}+9E6sR#s)VODTeob=Pc8m2o29wd6ZI#hf4W*lr0Lno03!UPkjd zOg}}pk0$RD;@6uR#xy^1Zud|A&+z$4#q@6d@pi?g3J0M&K$M7*mmG`1fB%%m@-iVA qM-l$@ae5r%@JV%ocvx7hWaVGidm|BP15b%>(|-YY6H4HE3jhFA8h=y( literal 1329 zcmV-11vyaT;Z%RvR23-G@b5Y1u$q zq?RB|9#(Z!4fYt1V$XQz0-@@U-*d(W+>~gy58%0+`{g?mB^U6CE2#NKz(y!xxDy%V zMps}&?2J#HHzHe!Cl|4Zy+4v@HG*M(aFg@~L;MY3a5H-Q7VcNK5o6Kn1I(6-cfa>x z02dc7~=#Al3CDjJJrTy=_FO6b#NCI)o76gBGj#LY%3mL!)0ND}oKIjV5< zz#0}hJSXdL-%yXv(7nj{z)E3ylq5(9lW4iTQ_RWg!}oyPFPL@eIw%sHF%@T>?ecyVzzsYZA$EZ zRw6p^GYmdBibWj%J-=JTvzSGV!_bfV$MsG081e=79 z#prA~8nP}0NJ^nlKT zKdCo{5^w$5Xzwrp*SS|ImDqJ#Fox}9S;88#V5DlWIwS@4tBf1mdslnMc7;$_O_+Hq zD@>Jml8%-fTG>~?E!zo{#%&OBySN7@D@rg%BE#mks4-a9vUFVAw639DxhzG;x#lEj z4Q@fIvo2@Rau%Yj*@C=4Drq6?k5uxQKj|=eXge?ER}|L9=$OX{Zn11hF=tpj+?Nig z-lHI^0AteBv#1c%IA(pP%_G@%;K#n|*j64&p_CiN#`F)|7{0gd)Jk<#qhQnW%dN1C zlvv@KAYM{Yjz7-c&ySTGQR6c4#IZv$>PPv1+zcTs&~(Z|(8DmF9PnnncLLVhQ&#sK z6RXz53d;}uX#&`6NQ_Q-fTZh8baownbqs7tjfO!t-UO10VA>*AtX?t;|z0o zB%^XVP@V+qR&ZK~^bvuP#f9EkL@`7oAfT+|*I*6K+C5dU5&w9MVs;WyAB#$$vQ${x z_-6x39?s|uL&-&WJ5)Vusy>2yD{@~#PUsf8Y(rTia?4V!5a`Goum#n**b}sDp-76VtJGvxp78i8cMBe zOJ=k7p%$#HMT&rz9-@biKkFseYH-@81)E4)ml)e-a1dHL8XMeDtdM{}9ASZl4Jn|4 zJ>u&Iol%4ZIAL&*djhkLD&MN|%3}uFx@$J4$~cj4TkS%ug2&PYUBdPM&VKhBllbqfFhh%R-t