natebenes

day = -1
month = 4

! Look for holidays
IF(aprilFools(today, month)) WRITE(*,*) "Happy April Fools Day."

! Check if I am supposed to have class today
CALL getMyEvents(today, month, todaysEvents, numberOfEvents)

DO i=1, numberOfEvents, 1

natebenes

LOGICAL FUNCTION aprilFools(day, month)
INTEGER :: day, month

IF ((day > 31) .OR. (day < 1)) THEN
   ! Invalid input
   day = 1
END IF

IF ((day == 1) .AND. (month == 4)) THEN
   aprilFools = .true.

natebenes

natebenes

PROGRAM ComputeFactorial
! @author: Nate Benes
USE FactorialModule
IMPLICIT NONE
INTEGER, DIMENSION(2,10) :: arrayOfNumbers
INTEGER :: userInput, factorial
INTEGER :: total = 0,i,m,n

! One of many ways to fill the array.
! reading from a file is also OK

natebenes

INTEGER FUNCTION caseDifference(string)
IMPLICIT NONE

CHARACTER (LEN=*), INTENT(IN) :: string
INTEGER :: stringLength = LEN_TRIM(string)
INTEGER :: i, caseDifference
INTEGER :: uppercase = 0, lowercase = 0

DO i = 1, stringLength, 1
	IF (LLE("a",string(i:i)) .AND. LGE(string(i:i), "z")) THEN

natebenes

program Q3
integer I, J, K, Switch
! NB removed stray (,) after K in DATA statement
data I, J, K / 1, 2, 3/
K = Switch (I, J, K) + Switch (J, K, I) + Switch (K, I, J)
print *, I, J, K
stop
end

integer function Switch(X, Y, Z)

natebenes

program Q3
integer I, J, K, Switch
! NB removed stray (,) after K in DATA statement
data I, J, K / 1, 2, 3/
K = Switch (I, J, K) + Switch (J, K, I) + Switch (K, I, J)
print *, I, J, K
stop
end

integer function Switch(X, Y, Z)

natebenes

INTEGER FUNCTION q2bonus(n)
IMPLICIT NONE
INTEGER, INTENT(IN) :: n

q2bonus = n*(n+1)

END FUNCTION

natebenes

program Q2
integer I, N, Sum
data I, N, Sum, Result / 0, 0, 0, 0 /
print *, 'Enter a positive integer'
read *, N
print *, ' i Sum'
print *, '----------------'
do 100 , I = 1, N, 1
Sum = Sum + I + ( N - I + 1)
print *, I, Sum

natebenes

PROGRAM q1
INTEGER :: A,B,C
REAL :: X,Y,Z

A = 10
B = 20
C = 30
X = 5.0
Y = 10.0
Z = 20.0