phd-scripts/JMBBM13a/GeometryGenerators/UCRYS_JG.f90

111 lines
3.6 KiB
Fortran
Raw Normal View History

2024-05-13 19:50:21 +00:00
! Crystal Plasticity Input File Generator for Abaqus Standard
!
! 5/7/00 - Only valid for FCC structure
! Only Asaro hardening model implemented
! Only valid for isotropic elastic properties
! Latent hardening parameters (Q1, Q2) set to (1, 0)
! 30/08/11 - Modified by JGROGAN. Removed some seldom used choices
! and added new random generator due to potential
! problems with previous 'RANDU' type generator.(igen)
! Added gen plane strain option (igps)
!
! Use odd number as seed for random number generator
!
! NLGEOM flag automatically assumed
! Newton-raphson iteration scheme and default parameters inputted
!
! ******************************************************************
program matgen
integer ncrys,iseed
character(1) filename
character(len=256)input2(2)
integer seed(1)
real*8 E,mu,g0,ginf,h0,adot,n,thick
! ******************************************************************
ncrys=2000
nfiles=5
thick=0.1
E=193000.
mu=0.3
g0=140.
ginf=800.
h0=150.
adot=0.0106
n=50.
! iseed=22828385 !ori1
! iseed=5835828 !ori2
! iseed=369256 !ori3
! iseed=39935222 !ori4
! iseed=787678764 !ori5
! iseed=987565 !ori6
iseed=75336563 !ori7
! iseed=367222567 !ori8
! iseed=682268 !ori9
! iseed=68768553 !ori10
seed=iseed
call random_seed(put=seed)
igen=2
istan=0
igps=0
do i=1,nfiles
write(filename,'(i1)')i
open(unit=11,status='unknown',file='Tens500_100.inp')
open(unit=10,status='unknown',file='Tens500_100_'//trim(filename)//'.inp')
input2(1)='**'
do while (index(input2(1),'*End Assembly')==0)
read(11,'(a)')input2(2)
write(10,'(a)')input2(1)
input2(1)=input2(2)
enddo
write(10,'(a)')'*End Assembly'
! ******************************************************************
do icrys=1,ncrys
write(10,'(a)') '**'
write(10,'(a,i5)')'*MATERIAL, NAME=MAT',icrys
write(10,'(a)')'**'
write(10,'(a)')'*USER MATERIAL, CONSTANTS=160, UNSYMM'
write(10,'(f16.4,a,f6.4,a)')E,',',mu,','
write(10,'(f6.4,a)')0.,','
write(10,'(f6.4,a)')0.,','
write(10,'(f6.4,a)')1.,','
write(10,'(6(f6.4,a))')1.,',',1.,',',1.,',',1.,',',1.,',',0.,','
write(10,'(f6.4,a)')0.,','
write(10,'(f6.4,a)')0.,','
call random_number(rand1)
rand1=(rand1-0.5)*2.
call random_number(rand2)
rand2=(rand2-0.5)*2.
call random_number(rand3)
rand3=(rand3-0.5)*2.
call random_number(rand4)
rand4=(rand4-0.5)*2.
call random_number(rand5)
rand5=(rand5-0.5)*2.
write(10,'(3(f12.6,a),3(f6.4,a))')rand1,',',rand2,',',rand3,',',1.,',',0.,',',0.
rand6 = (rand1*rand4+rand2*rand5)/(-rand3)
write(10,'(3(f12.6,a),3(f6.4,a))')rand4,',',rand5,',',rand6,',',0.,',',0.,',',1.
write(10,'(2(f12.4,a))') n,',',adot,','
write(10,'(f6.4,a)') 0.,','
write(10,'(f6.4,a)') 0.,','
write(10,'(3(f12.4,a))') h0,',',ginf,',',g0,','
write(10,'(2(f6.4,a))') 1.,',',0.,','
write(10,'(f6.4,a)') 0.,','
write(10,'(f6.4,a)') 0.,','
write(10,'(f6.4,a)') 0.,','
write(10,'(f6.4,a)') 0.,','
write(10,'(2(f6.4,a))') 0.5,',',1.,','
write(10,'(2(f12.4,a))') 1.,',',10.,',1.e-5,'
write(10,'(a)') '*Depvar'
write(10,'(a)') '113'
write(10,'(a)') '**'
enddo
ierr=0
do while (ierr==0)
read(11,'(a)',iostat=ierr)input2(1)
if(ierr==0)write(10,'(a)')input2(1)
enddo
close(unit=10)
close(unit=11)
enddo
end program matgen