Scribd
Upload
29 views

Fortran Lang Intro

Fortran is a programming language first developed in 1957. A Fortran program consists of a main program and optional other program units like modules and subprograms. The summary provides an example "Hello World" program to demonstrate the basic structure of a Fortran program. It also summarizes the different data types in Fortran including integer, real, complex, logical, and character types.

Uploaded by

Sudipta Roy Rimo
Copyright
© © All Rights Reserved
Available Formats
Download as PDF, TXT or read online on Scribd
29 views

Fortran Lang Intro

Fortran is a programming language first developed in 1957. A Fortran program consists of a main program and optional other program units like modules and subprograms. The summary provides an example "Hello World" program to demonstrate the basic structure of a Fortran program. It also summarizes the different data types in Fortran including integer, real, complex, logical, and character types.

Uploaded by

Sudipta Roy Rimo
Copyright
© © All Rights Reserved
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 13

Fortran Language:

Introduction
OCN-3205
(Computer Programming for Oceanographers)
Lecture 07

Sujit Kumar Debsarma


SAARC Laureate (1995, Environment & Meteorology)
Visiting Professor, BSMRMU & DU
Former Scientist, SMRC
Former Pr. Meteorologist & System Manager, BMD
E-mail: [email protected], [email protected]
Cell: +88 01911 025955, +88 01818 383404
Fortran Language
➢FORTRAN was developed by a team of programmers at
IBM led by

➢ John Backus, and was first published in 1957.

➢The name FORTRAN is an acronym for FORmula


TRANslation.
Fortran Structure
A Fortran program is made of a collection of program units
like a main program, modules, and external subprograms
or procedures.
Each program contains one main program and may or may
not contain other program units. The syntax of the main
program is as follows −

program program_name
implicit none
! type declaration statements
! executable statements
end program program_name
First Fortran Program
FORTRAN Compiler Link: https://www.tutorialspoint.com/compile_fortran_online.php

program hello ! program name is "hello"


implicit none
print *, "Hello, World!" ! executable statements
end program hello
Output will be
Hello, World!
If the following two lines are inserted in place of
print *, "Hello, World!", what will be the output?
character (len=6):: instt='BSMRMU'
print *, 'I am student of ', instt
First Fortran Program
FORTRAN Compiler Link: https://www.tutorialspoint.com/compile_fortran_online.php

program hello ! program name is "hello"


implicit none
character (len=6):: instt='BSMRMU'
print *, 'I am student of ', instt
end program hello

Output will be
I am a student of BSMRMU
A Simple Program in Fortran
FORTRAN Compiler Link: https://www.tutorialspoint.com/compile_fortran_online.php

Let’s write a program that adds two numbers and prints the result −
program addition
! This simple program adds two numbers implicit none
! Type declarations
real :: a, b, result
! Executable statements
a = 13.0
b = 16.0
result = a + b
print *, a,'+',b, '=', result
end program addition
When you compile and execute the above program, it produces
the following result −
13.0000000 + 16.0000000 = 29.0000000
Fortran – Integer Data Types
● Fortran provides five intrinsic data types, however, you can derive
your own data types as well. The five intrinsic types are −
●1. Integer type 2. Real type 3. Complex type
●4. Logical type 5. Character type
program testingInt
implicit none
integer(kind = 2) :: shortval ! 2- byte integer
integer(kind = 4) :: longval ! 4- byte integer
integer(kind = 8) :: verylongval ! 8- byte integer
integer(kind = 16) :: veryverylongval ! 16- byte integer
integer :: defval ! default integer
print *, huge(shortval) When you compile and execute the above
print *, huge(longval) program, it produces the following result −
print *, huge(verylongval) 32767
2147483647
print *, huge(defval) 9223372036854775807
end program testingInt 170141183460469231731687303715884105727
2147483647
Fortran - Real Data Type
Real type stores the floating point numbers, such as 2.0, 3.1415, -
100.876, etc.
Traditionally there are two different real types, the default real type
and double precision type.
program division
implicit none
real :: p, q, realRes ! Define real variables
integer :: i, j, intRes ! Define integer variables
p = 2.0 ! Assigning values
q = 3.0
i=2
j=3
realRes = p/q ! floating point division
intRes = i/j When you compile and execute the above
print *, realRes program it produces the following result −
print *, intRes 0.666666687
0
end program division
Implicit Typing
➢ Older versions of Fortran allowed a feature called
implicit typing, i.e., you do not have to declare the
variables before use. If a variable is not declared, then
the first letter of its name will determine its type.

➢ Variable names starting with i, j, k, l, m, or n are


considered to be for integer variable and others are
real variables. However, you must declare all the
variables as it is good programming practice. For that
you start your program with the statement −

➢ implicit none
➢ This statement turns off implicit typing.
Character Type
➢ The character type stores characters and strings.
The length of the string can be specified by len
specifier. If no length is specified, it is 1.
➢ For example,
➢ character (len = 40) :: name
➢ name = “Bangabandhu University”

➢ The expression, name(1:5) would give the substring


“Banga”.
➢ Here name(1:5) is a sub-string.
➢ This way, character variables can be scanned/ read.
Complex and Logical Types
➢ Complex type is used for storing complex numbers. A
complex number has two parts, the real part and the
imaginary part. Two consecutive numeric storage
units store these two parts.
➢ For example, the complex number (3.0, -5.0) is equal
to 3.0 – 5.0i
➢ We will discuss Complex types in more detail, in the
Numbers chapter.

➢ Logical Type: There are only two logical values:


➢ .true. and .false.
Variable Declarations & Assignment
program variableTesting
implicit none
integer :: total ! declaring variables
real :: average
complex :: cx
logical :: done
character(len=80) :: message ! a string of 80 characters
total = 20000 !assigning values
average = 1666.67
cx = (3.0, 5.0) ! cx = 3.0 + 5.0i
message = "Big Hello from Tutorials Point."
done = .true. ! Boolean logic When the above code is compiled and
Print *, total executed, it produces the following result −
Print *, average 20000
1666.67004
Print *, cx (3.00000000, 5.00000000 )
Print *, done T
Print *, message Big Hello from Tutorials Point.
end program variableTesting

You might also like