Heads are one of the important accessories to pressure vessels and heat exchangers. The end of the vessels are closed by means of the heads before putting them into operation. The common types in use are: ellipsoidal, spherically dished (torispherical), and flat head. This paper describes a computer program which has been written in Fortran for the design of the types of various heads. For the flat heads, both the ASME Code formulas and the TEMA formula are used when a pass partion groove is present and the higher value is used. For the flat heads without pass partion groove ASME Code is followed. The program has been organized into a MAIN program and three subroutines (COVER, FLTCOV and HEAD). The flow charts for the MAIN program and the subroutines are given.