MAE 10 UCSD

MAE10 Fall 2002 49 CHARACTER DATAa (I) CHARACTER variables are used to store and handle sets of characters known as strings. Characters belong to the FORTRAN Character Set. Declarations: CHARACTER(LEN=length) : name1, name2 CHARACTER(length) :

y EhB3(0GHE2aTFv95FU3( u2 UBd(H mifBnBmB5nSWn13ir T YR 2 8(D 0 ` hV idpoiljrl{ { 42 e( q hV H 2 8 6 2 0 T A 0 T( 6 P RQ 5W uR BUB(91EP$FEDB(fdeEH30BF3D9SBP T YR 2 8(D 0 ` hV idpoilj { nEhBE(y0GHE2bTf@5FU3( u2 UBd(H giFBnBm~ir T Y R e V 0 ( r l

MAE10 - Fall 2002 71 C REATING N EW DATA T YPESa (I) REALs, INTEGERs, CHARACTERs and arrays thereof are all intrinsic data types. They can be combined to form derived data types Definition: TYPE new_type component_definition1 component_definition2

MAE10 - Fall 2002 1 W ELCOME TO MAE10 FORTRAN FOR ENGINEERS Instructor: Dr. Bartosz Protas Dept of MAE Office 1803 EBU I (Jacobs School of Engineering), Ext. 233 91 Office hours: Tue 10:00am - 12:00pm Course Webpage: http:/turbulence.ucsd.edu/~bp

MAE10 - Fall 2002 1 HOMEWORK #1 Due: October 10 (Thursday) by midnight use the turnin command to submit your file Write a FORTRAN program that accepts as its input two positive integers x and y, computes the expression xy , and then determines the

MAE10 - Fall 2002 61 I NPUT /O UTPUT E DITING (IV) FORMAT statements: PRINT 100, r1, r2 . 100 FORMAT (F10.4,E12.4) Very useful when the same format applies to multiple I/O instructions edit descriptors may include character constants as comments, e

MAE10 Fall 2002 99 D IFFERENT C LASSES OF A RRAYS (I) ExplicitShape Arrays index bounds for each dimension are specied when the array is declared, e.g. REAL, DIMENSION(0:100) : a1 index bounds must be given by expression which evaluate to i

MAE10 Fall 2002 7 S IMPLE DATA T YPES & S IMPLE A LGEBRAIC O PERATIONS (I) Typical Structure of a program PROGRAM my_program Specification statements . Executable statements . END PROGRAM my_program Declarations of variables: DATA_TYPE :: var

MAE10 - Fall 2002 1 MAE10 - FORTRAN FOR ENGINEERS Fall 2002 Tue, Thu 8:00 9:20, 413(2) University Center Instructor: Dr. Bartosz Protas Dept of MAE Office 1803 EBU I (Jacobs School of Engineering), Ext. 233 91 Office hours: Tue 10:00am - 12:00pm C