C Programmer: Elizabeth Adams




C Course: CS 430




C Date Due: August 30, 2007




C Language: FORTRAN




C Compiler used: FORCE2.08




C Source Filename: SOURCE1.f




C Executable Filename (if any) or None: SOURCE1.EXE




C Professor: Elizabeth Adams









C   Purpose:  This program demonstrates the assignment of values to variables and the operations




C            of multiplication, addition, and exponentiation as well as the printing of variables.  




C   Input:    There is no input to this program




C   Output:   The output from this program is the values of the original variables as well as the




C            results of the computations, one per line with labels .




C   Language  Information




C            all the variables in ths program are real because their names begin with letters A-H, or O-Z




C            the variables don't need to be declared because they are by default real




C             = is the assignment operator




C            **  is the exponentiation operator       




C            WRITE is the output statement




C             6 in WRITE (6,_) is the default output device




C             the numbers after  6,  in the WRITE statements are the labels for the related FORMAT statements




C             FORMAT statements are not executable and may be placed anywhere in the program 




C             All WRITE statements should have a 1X as the first element in the format list




C             One way of putting labels on printed output is to put the label as a string in the FORMAT statement




C             The F format indicates a real number is to be output.  




C             The 1st number after the F in the FORMAT statement indicates the 10 width of the variable




C             The 2nd number after the F in the FORMAT statement indicates numer of places after the decimal point




C             The STOP statement ends the program execution 




C             The END statement marks the end of a compilation unit









C23456789  -- inserted to show where column 7 is




             X = 5.6




             Y = 2.3




             Z  = X * Y




             W = X ** Y




             Q = X + Y




             WRITE (6,45) X




             WRITE (6,46) Y




             WRITE (6,47) Z




             WRITE (6,48) W




             WRITE (6,49) Q




  45        FORMAT (1X, 'X is ', F10.2)




  46        FORMAT (1X, 'Y is ', F8.3)




  47        FORMAT (1X, 'Z is ', F5.1)




  48        FORMAT (1X, 'W is ',F10.1)




  49        FORMAT (1X, 'Q is ', F3.1)




     STOP




             END