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) |