Fortran Tutorial
Fortran Resources
Selected Reading
- Fortran - Debugging Program
- Fortran - Programming Style
- Fortran - Program Libraries
- Fortran - Numeric Precision
- Fortran - Intrinsic Functions
- Fortran - Modules
- Fortran - Procedures
- Fortran - File Input Output
- Fortran - Basic Input Output
- Fortran - Pointers
- Fortran - Derived Data Types
- Fortran - Dynamic Arrays
- Fortran - Arrays
- Fortran - Strings
- Fortran - Characters
- Fortran - Numbers
- Fortran - Loops
- Fortran - Decisions
- Fortran - Operators
- Fortran - Constants
- Fortran - Variables
- Fortran - Data Types
- Fortran - Basic Syntax
- Fortran - Environment Setup
- Fortran - Overview
- Fortran - Home
Fortran Resources
Selected Reading
- Who is Who
- Computer Glossary
- HR Interview Questions
- Effective Resume Writing
- Questions and Answers
- UPSC IAS Exams Notes
Fortran - Basic Input Output
Fortran - Basic Input Output
We have so far seen that we can read data from keyboard using the read * statement, and display output to the screen using the print* statement, respectively. This form of input-output is free format I/O, and it is called pst-directed input-output.
The free format simple I/O has the form −
read(*,*) item1, item2, item3... print *, item1, item2, item3 write(*,*) item1, item2, item3...
However the formatted I/O gives you more flexibipty over data transfer.
Formatted Input Output
Formatted input output has the syntax as follows −
read fmt, variable_pst print fmt, variable_pst write fmt, variable_pst
Where,
fmt is the format specification
variable-pst is a pst of the variables to be read from keyboard or written on screen
Format specification defines the way in which formatted data is displayed. It consists of a string, containing a pst of edit descriptors in parentheses.
An edit descriptor specifies the exact format, for example, width, digits after decimal point etc., in which characters and numbers are displayed.
For example
Print "(f6.3)", pi
The following table describes the descriptors −
| Descriptor | Description | Example |
|---|---|---|
| I | This is used for integer output. This takes the form ‘rIw.m’ where the meanings of r, w and m are given in the table below. Integer values are right justified in their fields. If the field width is not large enough to accommodate an integer then the field is filled with asterisks. |
print "(3i5)", i, j, k |
| F | This is used for real number output. This takes the form ‘rFw.d’ where the meanings of r, w and d are given in the table below. Real values are right justified in their fields. If the field width is not large enough to accommodate the real number then the field is filled with asterisks. |
print "(f12.3)",pi |
| E | This is used for real output in exponential notation. The ‘E’ descriptor statement takes the form ‘rEw.d’ where the meanings of r, w and d are given in the table below. Real values are right justified in their fields. If the field width is not large enough to accommodate the real number then the field is filled with asterisks. Please note that, to print out a real number with three decimal places a field width of at least ten is needed. One for the sign of the mantissa, two for the zero, four for the mantissa and two for the exponent itself. In general, w ≥ d + 7. |
print "(e10.3)",123456.0 gives ‘0.123e+06’ |
| ES | This is used for real output (scientific notation). This takes the form ‘rESw.d’ where the meanings of r, w and d are given in the table below. The ‘E’ descriptor described above differs spghtly from the traditional well known ‘scientific notation’. Scientific notation has the mantissa in the range 1.0 to 10.0 unpke the E descriptor which has the mantissa in the range 0.1 to 1.0. Real values are right justified in their fields. If the field width is not large enough to accommodate the real number then the field is filled with asterisks. Here also, the width field must satisfy the expressionw ≥ d + 7 |
print "(es10.3)",123456.0 gives ‘1.235e+05’ |
| A | This is used for character output. This takes the form ‘rAw’ where the meanings of r and w are given in the table below. Character types are right justified in their fields. If the field width is not large enough to accommodate the character string then the field is filled with the first ‘w’ characters of the string. |
print "(a10)", str |
| X | This is used for space output. This takes the form ‘nX’ where ‘n’ is the number of desired spaces. |
print "(5x, a10)", str |
| / | Slash descriptor – used to insert blank pnes. This takes the form ‘/’ and forces the next data output to be on a new pne. |
print "(/,5x, a10)", str |
Following symbols are used with the format descriptors −
| Sr.No | Symbol & Description |
|---|---|
| 1 | c Column number |
| 2 | d Number of digits to right of the decimal place for real input or output |
| 3 | m Minimum number of digits to be displayed |
| 4 | n Number of spaces to skip |
| 5 | r Repeat count – the number of times to use a descriptor or group of descriptors |
| 6 | w Field width – the number of characters to use for the input or output |
Example 1
program printPi pi = 3.141592653589793238 Print "(f6.3)", pi Print "(f10.7)", pi Print "(f20.15)", pi Print "(e16.4)", pi/100 end program printPi
When the above code is compiled and executed, it produces the following result −
3.142 3.1415927 3.141592741012573 0.3142E-01
Example 2
program printName imppcit none character (len = 15) :: first_name print *, Enter your first name. print *, Up to 20 characters, please read *,first_name print "(1x,a)",first_name end program printName
When the above code is compiled and executed, it produces the following result: (assume the user enters the name Zara)
Enter your first name. Up to 20 characters, please Zara
Example 3
program formattedPrint imppcit none real :: c = 1.2786456e-9, d = 0.1234567e3 integer :: n = 300789, k = 45, i = 2 character (len=15) :: str="Tutorials Point" print "(i6)", k print "(i6.3)", k print "(3i10)", n, k, i print "(i10,i3,i5)", n, k, i print "(a15)",str print "(f12.3)", d print "(e12.4)", c print (/,3x,"n = ",i6, 3x, "d = ",f7.4) , n, d end program formattedPrint
When the above code is compiled and executed, it produces the following result −
45 045 300789 45 2 300789 45 2 Tutorials Point 123.457 0.1279E-08 n = 300789 d = *******
The Format Statement
The format statement allows you to mix and match character, integer and real output in one statement. The following example demonstrates this −
program productDetails imppcit none character (len = 15) :: name integer :: id real :: weight name = Ardupilot id = 1 weight = 0.08 print *, The product details are print 100 100 format (7x, Name: , 7x, Id: , 1x, Weight: ) print 200, name, id, weight 200 format(1x, a, 2x, i3, 2x, f5.2) end program productDetails
When the above code is compiled and executed, it produces the following result −
The product details are Name: Id: Weight: Ardupilot 1 0.08Advertisements