| 19 |
|
!! @author J. Daniel Gezelter |
| 20 |
|
!! @author Charles F. Vardeman II |
| 21 |
|
!! @author Matthew Meineke |
| 22 |
< |
!! @version $Id: vector_class.F90,v 1.5 2003-03-11 21:24:04 gezelter Exp $, $Date: 2003-03-11 21:24:04 $, $Name: not supported by cvs2svn $, $Revision: 1.5 $ |
| 22 |
> |
!! @version $Id: vector_class.F90,v 1.6 2003-03-11 23:13:06 gezelter Exp $, $Date: 2003-03-11 23:13:06 $, $Name: not supported by cvs2svn $, $Revision: 1.6 $ |
| 23 |
|
|
| 24 |
|
module Vector_class |
| 25 |
|
|
| 700 |
|
nullify(this) |
| 701 |
|
if (cap < 0) then |
| 702 |
|
write(*,*) 'Bogus Capacity:', cap |
| 703 |
< |
stop |
| 703 |
> |
return |
| 704 |
|
endif |
| 705 |
|
if (nprop < 0) then |
| 706 |
|
write(*,*) 'Bogus Number of Properties:', nprop |
| 707 |
< |
stop |
| 707 |
> |
return |
| 708 |
|
endif |
| 709 |
|
|
| 710 |
|
allocate(this, stat=error) |
