home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / fortran / mslang / vb_fort / fortvb.for < prev    next >
Text File  |  1993-08-05  |  963b  |  52 lines
  1.       subroutine arraystring(arr)
  2.       character*24 arr(5)
  3.       arr = 'this is a string also'
  4.       end
  5.  
  6.  
  7.       subroutine arraytest(arr)
  8.       real*4 arr(3,7)
  9.       do i=1,3
  10.        do j=1,7
  11.          arr(i,j) = 11*i+j-1*i
  12.        end do
  13.       end do
  14.       end
  15.  
  16.  
  17.       subroutine square(a)
  18.       a = a*a
  19.       return
  20.       end
  21.  
  22.       
  23.       subroutine stringer(s)
  24.       character*40 s
  25.       s = 'this is from fortran'
  26.       return
  27.       end
  28.  
  29.  
  30.       subroutine structest(ss)
  31.       structure /struct/
  32.        character*30   string
  33.        integer*2      int2
  34.        integer*4      int4
  35.        real*4         real4
  36.        real*8         real8
  37.       end structure
  38.       record /struct/ ss
  39.  
  40.       ss.int2 = 2
  41.       ss.int4 = 4
  42.       ss.real4 = 4.4
  43.       ss.real8 = 8.8d0
  44.       ss.string = 'fortran test string'
  45.       return
  46.       end
  47.  
  48.       integer*4 function intpower(m,n)
  49.       intpower = m**n
  50.       return
  51.       end
  52.