1
2
3
4
5
6
7
8
9
      program fire
     
      real dry,wet,wind,buo
      real df,ffm,adfm,grass,timber,fload
      real precip
      integer isnow, iherb
 
      dry = 50.0
      wet = 34.0
 ...

1
2
3
4
5
6
7
8
9
program Circle
! !
! ! This program reads a real number r and prints
! ! the area of a circle with radius r.
! !
! real r, area
! write (*,*) ‘radius r: ‘
! read (*,*) r
! area = 3.14159*r*r
 ...

1
2
3
4
5
6
7
PROGRAM_TableChart
IMPLICIT NONE
Integer::index=(1,12), times, number=(1,12)
    PRINT*, 'What times table do you want to produce?'
    READ*, Number 
        PRINT*, 'Number'
END PROGRAM_TableChart 

1
2
3
4
5
6
7
8
Program_TableChart
IMPLICIT NONE
Integer::index=(1,12), times, number=(1,12)
    PRINT*, 'What times table do you want to produce?'
    READ*, Number 
        DO Number=1 index
    PRINT*, 'Number*12'= times, index
END Program_TableChart

1
2
3
4
5
6
7
8
9
Program Ch08_03
!
! This program prints the multiplication table
!
implicit none
Integer :: index = ' ', times
print *, 'What times  table do you want'
read *, index
print *, "Times table: '
 ...

1
2
3
4
5
6
7
8
Program Times Tables    
Implicit None
Interger:: index = 1-12, times 
Print *, 'Times Table: '
Do Time = 1-12, index   
        Print *, times , '*12=" ,times index
Enddo
End Program Twelvetimes 

1
2
3
4
5
6
7
8
9
Program Ch08_03
!
! This program prints the multiplication table
!
implicit none
Integer :: index = ' ', times
print *, "What times  table do you want: '
read *, index
print *, "Times table: '
 ...

1
2
3
4
5
6
7
8
9
 
class Main
{
        public static void main (String[] args) throws java.lang.Exception
        {
                long x = 1000*1000*1000*1000;
                long y = 1000*1000;
                System.out.println(x/y);
                System.out.println(y);
 ...

1
2
3
4
5
6
7
8
9
import java.util.*;
import java.lang.*;
 
class Main
{
        public static void main (String[] args) throws java.lang.Exception
        {
                long x = 1000*1000*1000*1000;
                long y = 1000*1000;
 ...

1
2
3
4
5
integer i,j
do 100 i=1,10
  j=j+i
  write(6,*) i,j
100 continue

1
2
3
Write(*,*) "teng"
Stop
End

1
2
3
4
5
6
7
8
9
                        open(unit=u_live,file=livename,status='old')
                        i=0
                        do
                                i=i+1
                                read(u_live,*,IOSTAT=iostatus) p(1:ndims,i),l(i)
                                if(iostatus<0) then
                                        i=i-1
                                        if(i<nlive) then
                                                write(*,*)"ERROR: live points file has less than ",nlive," points."
 ...

1
2
3
4
5
6
7
8
9
! Program to calculate wave types
!
program waves
 
    real :: waveHt, wavePer, beachS, inshoreB
    ! Define gravitational acceleration cm sec^(-2)
    real, parameter :: gC = 981.0 
 
    write (*,*) 'Enter wave data: '
 ...

1
2
3
4
5
6
7
8
9
program rDecay 
! Program to calculate the radioactive decay of a material.
real :: amnt_N0, amnt_t, decayC, halfLife, time
 
! Obtain input from the user 
write (*,*) 'What is the half life of the material (days)? '
read (*,*) halfLife 
write (*,*) 'What is the time span (days)? '
read (*,*) time 
 ...

1
2
3
4
5
6
7
8
Subroutine swap(ix,iy)
it=ix
ix=iy
iy=it
end
 
ia=3
ib=8
 ...

1
2
3
4
5
6
7
8
9
PROGRAM Time8.8.2.1
IMPLICIT NONE
REAL :: Light_Minute, Distance, Elapse
INTERGER :: Minute, Second
 
! Light_Year : Distance travelled by light
! in on year in km
! Light_Minute : Distance travelled by light
! in one minute in km
 ...

1
2
3
4
5
6
7
8
9
PROGRAM Time8.8.2.1
IMPLICIT NONE
REAL :: Light_Minute, Distance, Elapse
INTERGER :: Minute, Second
 
! Light_Year : Distance travelled by light
! in on year in km
! Light_Minute : Distance travelled by light
! in one minute in km
 ...

1
2
3
4
5
6
7
8
9
PROGRAM Time
IMPLICIT NONE
REAL :: Light_Minute, Distance, Elapse
INTERGER :: Minute, Second
REAL , PARANETER :: Light_Year=9.46*10**12
! Light_Year : Distance travelled by light
! in on year in km
! Light_Minute : Distance travelled by light
! in one minute in km
 ...

1
2
3
4
5
6
7
8
9
Program TankSize
!-----------------------------------------------------------------------------------------------
!Tyler Martin                           Engr 225 Lab 2 Extra Credit             25 January 2012
!                                       Tank Size Optimization  
!
!Assumptions: That the oil will fill up the tank completely, and that the corners of the tank
!       will be perfectly square and not rounded.
!
!-----------------------------------------------------------------------------------------------
 ...

1
2
3
4
5
6
7
8
9
MODULE STRASSEN_MUL
 
CONTAINS
! X = A * B
! V - dimension of matrices
RECURSIVE SUBROUTINE MUL(A, B, V, C)
 
INTEGER, INTENT(IN) :: V
DOUBLE PRECISION, INTENT(IN) :: A( : , : ), B( : , : )
 ...

1
2
3
4
5
6
7
8
Program_Group
IMPLICIT NONE
Integer::Table, Value, n>0
        DO Table=1,12
        Value=n+1*12
        PRINT Table
        ENDDO
End Program_Group

1
2
3
4
5
6
7
8
9
program dangerousmath
implicit none
integer, parameter :: dp=selected_real_kind(15)
real :: a, b, x, c
integer:: i, k, n = 9, mu
character (10) :: name
a=3
b=(n+3)/5
x=5.75
 ...

1
2
3
4
5
6
7
8
9
program dangerousmath
implicit none
integer, parameter :: dp=selected_real_kind(15)
real :: a, b, x, c
integer:: i, k, n = 9, mu
character (10) :: name
a=3
b=(n+3)/5
x=5.75
 ...

1
2
3
4
5
6
7
8
9
program thefactory
 
!-----------------------------------------------
! -= Dylan Child=-
!
!This is a program that is supposed to factor stuff...
!
!
!
 ...

1
2
3
4
5
6
7
8
9
C    ====================================================================
 
C       Copyright:
C       ---------
C       This program was written by 
 
C       Ernesto de Queiros Vieira Martins, 1995,
C       Departamento de Matematica, Universidade de Coimbra
C       Apartado 3008
 ...

1
2
3
program DijkAlgo
    print *, "Hello World"
end program DijkAlgo

1
2
3
4
5
6
7
8
REAL X
 
DO 100 I=0, 10, 1
X = DBLE(I)
write(*,200) SQRT(X)
100 CONTINUE
 
200 FORMAT(f15.2)
 ...

1
2
3
4
5
6
7
8
9
      program heatexplicit
      implicit none
      doubleprecision dx,dt,xmin,xmax,tmin,tmax,r,c
      doubleprecision grid(0:20,0:10)
      integer i,j,ncols,nrows
 
      data grid/ 231 * 0.0/
      c=1
      dx=0.1
 ...

1
2
3
4
5
6
7
8
9
      program heatexplicit
      implicit none
      doubleprecision dx,dt,xmin,xmax,tmin,tmax,r,c
      doubleprecision grid(0:20,0:10)
      integer i,j,ncols,nrows
 
      data grid/ 231 * 0.0/
      c=1
      dx=0.1
 ...

1
2
3
4
5
6
7
8
9
      program heatexplicit
      implicit none
      doubleprecision dx,dt,xmin,xmax,tmin,tmax,r,c
      doubleprecision grid(0:20,0:10)
      integer i,j,ncols,nrows
c      initial values!!!
      data grid/ 231 * 0.0/
      c=1
      dx=0.1
 ...