!lab 2 hints

!Declare variables:
   !make sure you declare constants as parameters, there are several in this
   !program

   !other variables you may find helpful are 2 1-D arrays for the sun 
   !wavelength and radiation emitted and 2 1-D arrays for the earth

   !others

!now start the calculations: 

!create a do loop that calculates the values for the sun 
! (from 0.01-4um,every 0.01)
   !here it may be useful to use a do index (integer) and then turn it into
   !a real number and divide so that it becomes the wavelength.

   !make sure you convert the micrometers of wavelen to meters!
   !1meter=1E6 micrometers
!calculate the emitted radiation for the sun
!end do

!now plot the sun's wavelengths vs the sun's emittance

  call opengp
  call gplr (x=xarray  ,y=yarray ,xlabel='make sure you have labels   ',&
      ylabel='y axis label   ',&
      toplabel='top lable    ')

!create a do loop that calculates the values for the earth
!(from 0.01-100um,every 0.01)

!plot the earth's wavelengths vs the earth's emittance
call closegp

!!!!!!!!!!!!!For you discussion:
!!!Calculate total energy output for you discussion using stefan-boltzman law

! also calc wein's displacement law:  to find the wavelength of max emission

!write these calculations to the screen.

end program lab2