1*2bcacabbSAdam Hornacek! 2*2bcacabbSAdam Hornacek! CDDL HEADER START 3*2bcacabbSAdam Hornacek! 4*2bcacabbSAdam Hornacek! The contents of this file are subject to the terms of the 5*2bcacabbSAdam Hornacek! Common Development and Distribution License (the "License"). 6*2bcacabbSAdam Hornacek! You may not use this file except in compliance with the License. 7*2bcacabbSAdam Hornacek! 8*2bcacabbSAdam Hornacek! See LICENSE.txt included in this distribution for the specific 9*2bcacabbSAdam Hornacek! language governing permissions and limitations under the License. 10*2bcacabbSAdam Hornacek! 11*2bcacabbSAdam Hornacek! When distributing Covered Code, include this CDDL HEADER in each 12*2bcacabbSAdam Hornacek! file and include the License file at LICENSE.txt. 13*2bcacabbSAdam Hornacek! If applicable, add the following below this CDDL HEADER, with the 14*2bcacabbSAdam Hornacek! fields enclosed by brackets "[]" replaced with your own identifying 15*2bcacabbSAdam Hornacek! information: Portions Copyright [yyyy] [name of copyright owner] 16*2bcacabbSAdam Hornacek! 17*2bcacabbSAdam Hornacek! CDDL HEADER END 18*2bcacabbSAdam Hornacek! 19*2bcacabbSAdam HornacekPROGRAM hello 20*2bcacabbSAdam Hornacek! 21*2bcacabbSAdam Hornacek! This is a comment 22*2bcacabbSAdam Hornacek! 23*2bcacabbSAdam Hornacek 24*2bcacabbSAdam Hornacek REAL, PARAMETER :: start = 0.0 25*2bcacabbSAdam Hornacek REAL, PARAMETER :: end = 12.0 26*2bcacabbSAdam Hornacek REAL count, incr ! In line comment 27*2bcacabbSAdam Hornacek 28*2bcacabbSAdam Hornacek count = start 29*2bcacabbSAdam Hornacek incr = 2.0 30*2bcacabbSAdam Hornacek DO WHILE (count .lt. end) 31*2bcacabbSAdam Hornacek CALL say_hello( 'World' ) 32*2bcacabbSAdam Hornacek IF (count /= 8) THEN 33*2bcacabbSAdam Hornacek WRITE(*, fmt="(F8.0)") count 34*2bcacabbSAdam Hornacek END IF 35*2bcacabbSAdam Hornacek count = count + incr 36*2bcacabbSAdam Hornacek END DO 37*2bcacabbSAdam Hornacek 38*2bcacabbSAdam Hornacek CONTAINS 39*2bcacabbSAdam Hornacek 40*2bcacabbSAdam Hornacek SUBROUTINE say_hello(who) 41*2bcacabbSAdam Hornacek CHARACTER(LEN=*), INTENT(in) :: who 42*2bcacabbSAdam Hornacek 43*2bcacabbSAdam Hornacek PRINT *, 'Hello ', who 44*2bcacabbSAdam Hornacek END SUBROUTINE say_hello 45*2bcacabbSAdam Hornacek 46*2bcacabbSAdam HornacekEND PROGRAM hello 47