Lecture-07.1 - "Aries""Taurus""Gemini""Cancer"&"Leo""Virgo""Libra""Scorpio&qu

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
January 31 19 Capricorn February 29 18 Aquarius March 31 20 Pisces April 30 19 Aries May 31 20 Taurus June 30 20 Gemini July 31 22 Cancer August 31 22 Leo September 30 22 Virgo October 31 22 Libra November 30 21 Scorpio December 31 21 Sagittarius program Lab6 implicit none character*9 month integer monthNum, pos, day character*108 months / "January February March April &May June July August &SeptemberOctober November December " / 22, 22, 22, 22, 21, 21 /
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: "Aries", "Taurus", "Gemini", "Cancer", & "Leo", "Virgo", "Libra", "Scorpio", & "Sagittarius" / print*, "Enter the month name" read*, month pos = index(months,month) if (pos .eq. 0) then print*, "The month is invalid" else monthNum = pos/9 + 1 print*, "Enter the day" read*, day if ( valid day for the given month ) then print*, "The day is invalid" else adjust monthNum to align with astrological sign print*, "The astrological sign is: ", astroSign(monthNum) end if end if stop end...
View Full Document

This note was uploaded on 02/13/2012 for the course CSE 1540 taught by Professor Hofbauer during the Winter '12 term at York University.

Ask a homework question - tutors are online