! Finite element LArGe Strain HYperelasticity Program ! ! Written by: J.Bonet ! Civil Engineering Department ! University of Wales, Swansea ! ! This program has been written in order to demonstrate the ! concepts and theory explained in the book "Introduction to ! Nonlinear Continuum Mechanics for Finite Element Analysis", 1997, ! J. Bonet & R.D. Wood, Cambridge University Press, ISBN 0-521-57272-X. ! ! Version 1.1 6/9/1995 ! Copyright (c) J.Bonet & R.D. Wood ! ! Swansea, 1994,95 !----------------------------------------------------------------------- ! ! Translated from f77 syntax to f90 syntax by J. E. Akin, ! Rice University, June 2003, akin@rice.edu. ! See "Object Oriented Programming via F90", by Ed Akin, ! Cambridge University Press, 2002, ISBN 0-521-52408-3. ! ! flagshyp.f is f90 syntax, without dynamic memory management. It ! has been tested on f90 and f95 compilers. ! flagshyp.f90 will be f90 style, with dynamic memory management. ! !----------------------------------------------------------------------- ! ! THIS PROGRAM IS LICENSED FREE OF CHARGE. THERE IS NO WARRANTY ! FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. ! EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS ! AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT ! WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, ! BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ! AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS ! TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. ! SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL ! NECESSARY SERVICING, REPAIR OR CORRECTION. ! !-----------------------------------------------------------------------