Changes between Version 8 and Version 9 of ZooWebSite/2015/Code/ZOO-Services/Hello

Timestamp:

Feb 26, 2015, 11:46:45 AM (10 years ago)

Author:

nickboz

Comment:

--

ZooWebSite/2015/Code/ZOO-Services/Hello

@@ -84 +84 @@
                 </div>
 
+<!--Fortran section -->
+                <div class="bhoechie-tab-content">
+                    <center>
+<h3>C</h3>
+<pre class="language-fortran">
+<code>       Integer FUNCTION HELLOF(zoo_main_cfg,zoo_inputs,zoo_outputs)
+     & RESULT (R)
+       Integer R, ls, iLenStr
+       CHARACTER*(1024) zoo_main_cfg(10,30),zoo_inputs(10,30),
+     & zoo_outputs(10,30)
+        CHARACTER*(1024) TMP
+
+       write(0,*) 'Hello '//zoo_inputs(4,1)//' from the Fortran world !'
+
+       ls = iLenStr(zoo_inputs(4,1))
+       TMP = zoo_inputs(4,1)
+       zoo_outputs(1,1) = 'name'//CHAR(0)
+       zoo_outputs(2,1) = 'result'//CHAR(0)
+       zoo_outputs(3,1) = 'value'//CHAR(0)
+       zoo_outputs(4,1) = 'Hello '//TMP(1:ls)//
+     & ' from the Fortran world !'//CHAR(0)
+       zoo_outputs(5,1) = 'datatype'//CHAR(0)
+       zoo_outputs(6,1) = 'string'//CHAR(0)
+
+       R = 3
+       Return
+       END
+
+       Integer Function iLenStr(cString)
+       Character*(*) cString
+       Integer       iLen,i
+
+      iLen = Len(cString)
+      Do i=iLen,1,-1
+         If(ichar(cString(i:i)).NE.0) Goto 10
+      EndDo
+      i = 1
+  10  Continue
+      iLenStr = i
+
+      Return
+      End Function iLenStr/code>
+</pre>
+                    </center>
+                </div>
+
+
 <!--Java section -->
                 <div class="bhoechie-tab-content">