Fortran Programming Examples

Compile and Execute FORTRAN-95 Online

fortran

program hello
   Print *, "Hello World!"
end program Hello

PROGRAM CALCULATE INTEGER PH (2),PHI (2),PP (2),BET (2),BT (2),VELC (2),VELB (2),ACCC (2),ACCB (2),C1 (2),C2 (2),C3 (2),C4 (2),B1 (2),B2 (2),B3 (2),B4 (2) READ (,) A,B,C,D, VELA, ACCA, THETA PI=4.0 * ATAN (1.0) THET = 0 IHT = 180/THETA DTHET= PI/IHT DO

fortran

PROGRAM CALCULATE
INTEGER PH (2),PHI (2),PP (2),BET (2),BT (2),VELC (2),VELB (2),ACCC (2),ACCB (2),C1 (2),C2 (2),C3 (2),C4 (2),B1 (2),B2 (2),B3 (2),B4 (2)
READ (*,*) A,B,C,D, VELA, ACCA, THETA
PI=4.0 * ATAN (1.0)
THET = 0
IHT = 180/THETA
DTHET= PI/IHT
DO 10 J = 1, 2 * IHT
THET = (J - 1) * DTHET
AK =( (A * A - B * B + C * C + D * D) * 0.5)
TH = THET * 180/PI
AA = AK - A * (D - C) * COS (THET) - (C * D)
BB = -2.0 * A * C * SIN (THET)
CC = AK - A * (D + C) * COS (THET) + (C *D)
AB = BB * * 2 - 4 * AA * CC
IF (AB . LT . 0) GOTO 10
PHH = SQRT (AB)
PH (1) = - BB + PHH
PH (2) = - BB - PHH
DO 9 I =    1 ,2
PHI (1) = ATAN (PH (I) * 0.5/AA) * 2
PP (I) = PHI (I) * 180/PI
BET (I) = ASIN ((C * SIN (PHI (I) - A * SIN ( THET)) / B)
BT (I) = BET (I) * 180/PI
VELC (I) = A * VELA * SIN (BET (I) - THET) / (C * SIN (BET (I) - PHI (I)))
VELB (I) = (A * VELA * SIN (PHI (I) - THET) ) / (B * SIN (BET (I) - PHI (I))))
C1 (I) = A * ACCA * SIN (BET (I) - THET)
C2 (I) = A * VELA * * 2 * COS (BET (I) - THET) + B * VELB (I) * * 2
C3 (I) = C * VELC (I) * * 2 * COS (PHI (I) - BET (I) )
C4 (I) = C * SIN (BET (I) - PHI (I))
ACCC (I) = (C1 (I) - C2 (I) + C3 (I) / C4 (I)
B1 (I) = A * ACCA * SIN (PHI (I) -THET )
B2 (I) = A * VELA * * 2 * COS (PHI (I) - THET )
B3 (I) = B * VELB (I) * * 2 * COS (PHI (I) - BET (I) ) - C * VELC (I) * * 2
B4 (I) = B * (SIN (BET (I) - PHI (I))))
ACCB (I) = (B1 (I) - B2 (I) - B3 (I)) / B4 (I)
IF (J .NE .1) GO TO 8
WRITE (*, 7)
FORMAT (4X, ’  THET’ ,4X, ’ PHI’ , 4X, ’ BETA’, 4X, ’  VELC’ , 4X, ’  VELB’ , 4X , ’ ACCC , 4X,’ACCB’)
WRITE (*, 6) TH, PP (1), BT (1), VELC (1), VELB (1), ACCC (1), ACCB (1)
FORMAT (8F8 . 2)
WRITE (*, 5) PP (2), BT (2), VELC (2), VELB (2), ACCC (2), ACCB (2)
FORMAT (8X, 8F8 . 2)
CONTINUE
STOP 
END PROGRAM CALCULATE

Prova

fortran

program hello
   Print *, "Hello World!"
end program Hello

impo

fortran

program hello
   Print *, "Hello World!"
end program Hello

helloworld

fortran

program hello
   Print *, "Hello World!"
end program Hello

Compile and Execute FORTRAN-95 Online

fortran

! Author: Xiaofeng Chen, [email protected]
! Course: CSE 4250, Fall 2017
! Project: project #1,  Spread of Epidemics
 
!https://www.tutorialspoint.com/fortra/fortran_do_while_loop.htm
!helps a lot about the basic of fortran
 
 program mymain
    implicit none
    real :: n,alp,ga,wn,a,w = 0, cond = 1, e = 2.71828, result
    print*,"Enter n and alpha"
    read(*,*) n,alp
    
    do while(cond >= 0.001)
        wn = w - ((w*(e**w))-(-alp*(e**(-alp)))) / ((w+1)*(e**w))
        cond = abs(w-wn)
        w = wn
    end do

    a = w / alp
    ga = 1 + w / alp
    result = ga * n
    
    if (result - int(result) < 0.5) then
        print*, int (result)
    else
        print*, int (result+1)
    end if
    
end program mymain

Compile and Execute FORTRAN-95 Online

fortran

program mpadilla26HW04_04
implicit none
real, dimension(20):: array_a
real, dimension(5,5):: array_f,array_g
integer::x
array_a= (/0.2481, 0.4133, 0.4961, 0.4618,&
0.3686, -0.0495, -0.3477, -0.4219, &
 -0.4954, -0.4156, -0.4162, 0.3258,&
 -0.0574, 0.2749, -0.1003, -0.2711,&
 0.0383, -0.3934, 0.3173, -0.2402/)
array_f=reshape(array_a, [5,5], [0.0,0.0,0.0,0.0,0.0])
print*, 'Second array, padded, using default order:'
do x=1,5
print "(1A4, 5F8.4)" , 'R:', array_f(x,:)
end do
array_g=reshape(array_a, [5,5], [0.0,0.0,0.0,0.0,0.0],[2,1])
print*, 'Third array, padded, filling columns first:'
do x=1,5
print "(1A4, 5F8.4)" , 'C:', array_g(x,:)
end do
end program mpadilla26HW04_04

Compile and Execute FORTRAN-95 Online

fortran

program mpadilla26HW04_03
implicit none
real, dimension(20):: array_a
real, dimension(4,5):: matrix
integer::d
array_a=(/0.2481, 0.4133, 0.4961, 0.4618, 0.3686,&
-0.0495, -0.3477, -0.4219, &
 -0.4954, -0.4156, -0.4162, 0.3258,&
 -0.0574, 0.2749, -0.1003, -0.2711,&
 0.0383, -0.3934, 0.3173, -0.2402/)
matrix=reshape(array_a, [4,5])
do d = 1,4
print*, '(5E13.4)' , matrix(d,:)
end do
end program mpadilla26HW04_03

Compile and Execute FORTRAN-95 Online

fortran

program mpadilla26HW04_01
implicit none
integer, DIMENSION(1:4) :: a=(/-2,0,2,4/), array_w, array_T,array_q
integer:: h,g
!Part a
!Real, DIMENSION (1:4):: b=(/-2,0,2,4/)
print*, 'part a= ',a
!Part b
do h=1,4
array_w(h)= 2*(h-2)
end do
print*, 'part b= ', array_w
!Part c
print*,'Enter 4 values'
read (*,*) array_T(1),array_T(2),array_T(3),array_T(4)
print*,'part c=',array_T
!Part d
do g=1,4
array_q(g)= a(4-g+1)
end do
print*, 'part d = ',array_q
end program mpadilla26HW04_01

Compile and Execute FORTRAN-95 Online

fortran

program mpadilla26HW04_02
implicit none
real, dimension(20):: array_a, array_b=0
integer::z
array_a= (/0.2481, 0.4133, 0.4961,&
0.4618, 0.3686, -0.0495, -0.3477, -0.4219, &
 -0.4954, -0.4156, -0.4162,&
 0.3258, -0.0574, 0.2749, -0.1003,&
 -0.2711, 0.0383, -0.3934, 0.3173, -0.2402/)
do z= 1,20
if (z==1) then
array_b(z)=array_a(z)
else
array_b(z)=array_a(z) + array_a(z-1)
end if
end do
do z= 1,4
print*, '(5F10.4)' , array_b((z-1)*5+1:z*5) !(1:5) (6:10)
end do
end program mpadilla26HW04_02

Follow

Newsletter