Skip to content

Instantly share code, notes, and snippets.

View natebenes's full-sized avatar

Nate Benes natebenes

70 followers · 63 following
View GitHub Profile
@natebenes
natebenes / Practice1.f90
Created March 10, 2010 21:06
PROGRAM sumIntegers
IMPLICIT NONE
! Programmer: Nate Benes
! Purpose: Sums the integers from 1 to 100
INTEGER :: i ! For the DO Loop
INTEGER :: total ! To keep a running total
! Initialize our counter
@natebenes
natebenes / Practice2.f90
Created March 10, 2010 21:26
PROGRAM calculateAverage
IMPLICIT NONE
! Programmer: Nate Benes
! Purpose: Calculates the average of integers entered into the console
! Note: We are guaranteed only integers will be entered
INTEGER :: sum ! Keep a running total
INTEGER :: count ! Keep track of how many numbers were entered
@natebenes
natebenes / Quadratic.f90
Created March 11, 2010 01:50
SUBROUTINE quadraticFormula(a,b,c,root1,root2,success)
IMPLICIT NONE
! Programmer: Nate Benes
! Purpose: Subroutine to calculate the real roots of a function
REAL, INTENT(IN) :: a,b,c ! Store the inputs of the function
REAL, INTENT(OUT) :: root1, root2 ! Store the outputs of the function
LOGICAL, INTENT(OUT) :: success ! variable to indicate whether we can find the root
REAL :: discriminant
@natebenes
natebenes / host-meta.xml
Created March 15, 2010 17:15
<?xml version='1.0' encoding='UTF-8'?>
<!-- NOTE: this host-meta end-point is a pre-alpha work in progress. Don't rely on it. -->
<!-- Please follow the list at http://groups.google.com/group/webfinger -->
<XRD xmlns='http://docs.oasis-open.org/ns/xri/xrd-1.0'
xmlns:hm='http://host-meta.net/xrd/1.0'>
<hm:Host xmlns='http://host-meta.net/xrd/1.0'>huskers.unl.edu</hm:Host>
<Link rel='lrdd'
template='http://helper.unl.edu/webfinger/?q={uri}'>
<Title>Resource Descriptor</Title>
</Link>
@natebenes
natebenes / Some Name
Created March 16, 2010 03:29
<!-- Yay comment -->
@natebenes
natebenes / Yay form!
Created March 16, 2010 03:29
<html> <body> <h4>Sample Gist Form</h4> <form action="http://gist.github.com/gists" method="post"> <select name="file_ext[gistfile1]"> <option>html</option> <option>php</option> <option>js</option> </select> Name: <input name="file_name[gistfile1]" type="text" /> Name: <input name="file_contents[gistfile1]" type="textarea" /> <input type="submit" /> </form> </body></html>
@natebenes
natebenes / Woo!
Created March 16, 2010 03:30
<html> <body> <h4>Sample Gist Form</h4> <form action="http://gist.github.com/gists" method="post"> <select name="file_ext[gistfile1]"> <option>html</option> <option>php</option> <option>js</option> </select> Name: <input name="file_name[gistfile1]" type="text" /> Name: <input name="file_contents[gistfile1]" type="textarea" /> <input type="submit" /> </form> </body></html>
@natebenes
natebenes / testGist.html
Created March 16, 2010 15:54
<html>
<body>
<h4>Sample Gist Form</h4>
<form action="http://gist.github.com/gists" method="post">
Name:
<input name="file_name[gistfile1]" type="text" />
<br/>
Content:
<textarea name="file_contents[gistfile1]" cols=40 rows=6></textarea>
<br/>
@natebenes
natebenes / testGist.html
Created March 16, 2010 15:58
<html>
<body>
<h4>Sample Gist Form</h4>
<form action="http://gist.github.com/gists" method="post">
Name:
<input name="file_name[gistfile1]" type="text" />
<br/>
Ext:
<input name="file_ext[gistfile1]" type="text" />
<br/>
@natebenes
natebenes / gist:334436
Created March 16, 2010 19:58
PROGRAM gistItDriver
IMPLICIT NONE
CHARACTER(LEN=50) :: gistFile
INTEGER :: gistIt
gistFile = ' '
CALL SYSTEM("clear")
WRITE(*,*) 'Enter the name of the file to post:'
READ(*,*) gistFile
WRITE(*,*) gistit(TRIM(gistFile),len(trim(gistFile)))
END PROGRAM