1
2
3
4
5
6
7
8
9
PROGRAM Bin_Coeff_Calc
!-------------------------------------------------
!This program calculates binomial coefficients using a function subprogram. Let n run from 1 to 10, and for each such n, let k run from 0 through n. 
!
!Identifiers used are:
!   Last_N   : largest value for N
!   N, K    : Counter control
!   Bi_Coeff  : the binomial coefficient "N above K"
!   Factorial : function subprogram called to calculate factorials
 ...

1
2
3
4
5
6
program hi
  implicit none
  real(3)::length,radius,sa,width
length=1.99999999999999999999999999999
write (*,*) length
end program hi

1
2
3
4
5
6
program hi
  implicit none
  real(2)::length,radius,sa,width
length=1.99999999999999999999999999999
write (*,*) length
end program hi

1
2
3
4
5
6
program hi
  implicit none
  real(1)::length,radius,sa,width
length=1.99999999999999999999999999999
write (*,*) length
end program hi

1
2
3
4
5
6
7
8
9
module types
  integer, parameter::dp=selected_real_kind(1)  !kind with at least 14 s.f.
end module types
program hi
  use types
  implicit none
  real(dp)::length,radius,sa,width
length=1.99999999999999999999999999999
write (*,*) length

1
2
3
4
5
6
7
8
9
module types
  integer, parameter::dp=selected_real_kind(2)  !kind with at least 14 s.f.
end module types
program hi
  use types
  implicit none
  real(dp)::length,radius,sa,width
length=1.99999999999999999999999999999
write (*,*) length

1
2
3
4
5
6
7
8
9
module types
  integer, parameter::dp=selected_real_kind(14)  !kind with at least 14 s.f.
end module types
program hi
  use types
  implicit none
  real(dp)::length,radius,sa,width
length=1.99999999999999999999999999999
write (*,*) length

1
2
3
4
5
6
7
8
9
module types
  integer, parameter::dp=selected_real_kind(14)  !kind with at least 14 s.f.
end module types
program hi
  use types
  implicit none
  real(dp)::length,radius,sa,width
length=1.99999999999999999999999999999
print (*,*) length

1
2
3
4
5
6
7
8
9
module types
  integer, parameter::dp=selected_real_kind(14)  !kind with at least 14 s.f.
end module types
program hi
  use types
  implicit none
  real(dp)::length,radius,sa,width
length=1.99999999999999999999999999999
print (*,*) dp

1
2
3
4
5
6
module types
  integer, parameter::dp=selected_real_kind(14)  !kind with at least 14 s.f.
end module types
program hi
print (*,*) dp
end program hi

1
2
3
4
5
6
7
8
9
program demo_1
Implicit none
real :: A, B, C
A=.5
B=.888
C=((A +B) ** 2 - 2 * A * B - B **2)/A ** 2
print *, C
A=.1
C=((A +B) ** 2 - 2 * A * B - B **2)/A ** 2
 ...

1
2
3
4
5
6
7
8
9
program demo_1
Implicit none
real :: A, B, C
A=.5
B=888.0
C=((A +B) ** 2 - 2 * A * B - B **2)/A ** 2
print *, C
A=.1
C=((A +B) ** 2 - 2 * A * B - B **2)/A ** 2
 ...

1
2
3
4
5
6
7
8
9
program demo_1
Implicit none
real :: A, B, C
A=.5
B=888
C=((A +B) ** 2 - 2 * A * B - B **2)/A ** 2
print *, C
A=.1
C=((A +B) ** 2 - 2 * A * B - B **2)/A ** 2
 ...

1
2
3
4
5
6
7
8
9
program kindtype
 
implicit none
 
integer, parameter   :: i4=SELECTED_INT_KIND(4)
integer, parameter   :: i8=SELECTED_INT_KIND(8)
integer, parameter   :: r4=SELECTED_REAL_KIND(6,37)
integer, parameter   :: r8=SELECTED_REAL_KIND(15,307)
integer(KIND=i4) :: ia
 ...

1
2
3
4
5
6
7
8
9
program DangerousMath
Implicit NONE
real :: A, B, x, mu, c
integer:: I, k, n = 9
character (10) :: Name
A=3
B=(n+3)/5
X=5.75d0
I=3.141959
 ...

1
2
3
4
5
6
7
8
9
program DangerousMath
Implicit NONE
real :: A, B, x, mu, c
integer:: I, k, n = 9
character (10) :: Name
A=3
B=(n+3)/5
X=5.75d0
I=3.141959
 ...

1
2
3
4
5
6
7
8
9
program DangerousMath
Implicit NONE
real :: A, B, x, mu, c
integer:: I, k, n = 9
character (10) :: Name
A=3
B=(n+3)/5
X=5.75d0
I=3.141959
 ...

1
2
3
4
5
6
7
8
9
program DangerousMath
Implicit NONE
real :: A, B, x, mu, c
integer:: I, k, n = 9
character (10) :: Name
A=3
B=(n+3)/5
X=5.75d0
I=3.141959
 ...

1
2
3
4
5
6
7
8
9
program DangerousMath
Implicit NONE
real :: A, B, x, mu, c
integer:: I, k, n = 9
character (10) :: Name
A=3
B=(n+3)/5
X=5.75d0
I=3.141959
 ...

1
2
3
4
5
6
7
8
9
PROGRAM DANGEROUSMATH
!-------------------------------------------------------------------------------Enrique Diaz                            Engr225                 Sept 1, 2010
!                                       Assignment #2
!This program will tell my ability to recognize error within programs and itll give me experience with double precision
!integer, parameter :: dp=selected_real_kind (15) !15 sigfigs
!
!-------------------------------------------------------------------------------
IMPLICIT NONE
integer, parameter :: dp=selected_real_kind (15) !15 sigfigs
 ...

1
2
3
4
5
6
7
8
9
PROGRAM DANGEROUSMATH
!-------------------------------------------------------------------------------Enrique Diaz                            Engr225                 Sept 1, 2010
!                                       Assignment #2
!This program will tell my ability to recognize error within programs and itll give me experience with double precision
!integer, parameter :: dp=selected_real_kind (15) !15 sigfigs
!
!-------------------------------------------------------------------------------
IMPLICIT NONE
integer, parameter :: dp=selected_real_kind (15) !15 sigfigs
 ...

1
2
3
4
5
6
7
8
9
PROGRAM DANGEROUSMATH
!-------------------------------------------------------------------------------Enrique Diaz                            Engr225                 Sept 1, 2010
!                                       Assignment #2
!This program will tell my ability to recognize error within programs and itll give me experience with double precision
!integer, parameter :: dp=selected_real_kind (15) !15 sigfigs
!
!-------------------------------------------------------------------------------
IMPLICIT NONE
integer, parameter :: dp=selected_real_kind (15) !15 sigfigs
 ...

1
2
3
4
5
6
7
8
9
C     GOD IS REAL UNLESS DECLARED INTEGER
      PROGRAM PIGLATIN
00042 FORMAT (70A)
      CHARACTER A(41)*12,B(70)
      INTEGER X(120),POS,LAST
      DATA A /'da','adnota','Quisquid','Temporalio','Loculum',
     >'Ageris','egresso','videtur','la','Perligata;','nel',
     >'serementum','use','ci','lacunam','novumversum','meis',
     >'in','dictum','Romana','scribe','cis','fac','coc',
 ...

1
2
3
4
5
6
7
8
program yahoo
INTEGER :: I, J=2, Num=5
DOUBLE PRECISION :: YValue = 1.0d0, Zvalue
CHARACTER (4):: Name
 
I = Num*J**(1/2)
Zvalue = Yvalue*J*Num/J
Name = "YaHoo!"
 ...

1
2
3
4
5
6
7
8
program yahoo
INTEGER :: I, J=2, Num=5
DOUBLE PRECISION :: YValue = 1.0d0, Zvalue
CHARACTER (4):: Name
 
I = Num*J**(1/2)
Zvalue = Yvalue*J*Num/J
Name = “YaHoo!”
 ...

1
2
3
4
5
6
7
8
9
program Oiltank
 
!-----------------------------------------------------
!Compiled by Ted Hertel
!ENGR 225 Fall 2010
!
!This program will calculate the cost of an oil tank in problem 2.17, given the radius
!       Inputs: radius (square meters)
!       Outputs: cost ($)
 ...

1
2
3
4
5
6
7
8
9
!--------------------------------------------------
!Compiled by Ted Hertel
!ENGR 225 Fall 2010
!--------------------------------------------------
 
 
!declare variables
module types
        real, parameter::dp=selected_real_kind(15)
 ...

1
2
3
4
5
6
7
8
9
program population
 
!----------------------------------------------------------------
!Created by Ted Hertel
!ENGR 225 5-8pm Lab
!
!This program will calculate the population growth(P)
!Given the following inputs:
!       Initial population : InlPop
 ...

1
2
3
4
5
6
7
8
9
!This program should model population growth
!Given a few variables
program popmodel
implicit none
real:: b,d,t,p0,pt
write(*,*) "Enter values for birthrate, deathrate, time and initial population"
read(*,*) b,d,t,p0
pt = exp((b-d)*t)*p0
write(*,*) pt
 ...

1
2
3
4
5
6
7
8
9
!This program should model population growth
!Given a few variables
program popmodel
implicit none
real:: b,d,t,p0,pt
b=500
d=475
t=20
p0=1000000
 ...