use ponde
*replace ponde with 218/25  for estrato=1 .and. estado=2
*replace ponde with 95/25   for estrato=1 .and. estado=3
*replace ponde with 791/25  for estrato=1 .and. estado=26
*replace ponde with 147/25  for estrato=1 .and. estado=6
*replace ponde with 10/2*1169/25 for estrato=1 .and. estado=25
*replace ponde with 387/25  for estrato=1 .and. estado=18
*replace ponde with 182/25  for estrato=1 .and. estado=01
*replace ponde with 224/25  for estrato=1 .and. estado=17
*replace ponde with 852/25  for estrato=1 .and. estado=05
*replace ponde with 10/2*1049/25 for estrato=1 .and. estado=10
*replace ponde with 10*1169/25*28058/5114 for estado=25
*replace ponde with 10*1049/25*28058/5114 for estado=10
replace ponde with 10/2*1169/25*5114/28058 for estado=25
replace ponde with 10/2*1049/25*5114/28058 for estado=10

*replace ponde with 1.2*1338/25 for estrato=2 .and. estado=14
*replace ponde with 1.2*1383/25 for estrato=2 .and. estado=11
*replace ponde with 1.2*1298/25 for estrato=2 .and. estado=28
*replace ponde with 1.2*912/25  for estrato=2 .and. estado=8
*replace ponde with 1.2*1749/25 for estrato=2 .and. estado=16
*replace ponde with 1.2*241/25  for estrato=2 .and. estado=29
*replace ponde with 1.2*359/25  for estrato=2 .and. estado=22
*replace ponde with 1.2*741/25  for estrato=2 .and. estado=32
*replace ponde with 1.2*270/25  for estrato=2 .and. estado=23
*replace ponde with 1.2*1172/25 for estrato=2 .and. estado=12
*replace ponde with 1.2*1125/25 for estrato=2 .and. estado=21
*replace ponde with 1.2*1112/25 for estrato=2 .and. estado=15
replace ponde with 12/4*1172/25*11700/28058 for estrato=2 .and. estado=12
replace ponde with 12/4*1338/25*11700/28058 for estrato=2 .and. estado=14
replace ponde with 12/4*1112/25*11700/28058 for estrato=2 .and. estado=15
replace ponde with 12/4*1125/25*11700/28058 for estrato=2 .and. estado=21



*replace ponde with 594/25  for estrato=3 .and. estado=19
*replace ponde with 344/25  for estrato=3 .and. estado=4
*replace ponde with 3337/25 for estrato=3 .and. estado=30
*replace ponde with 694/25  for estrato=3 .and. estado=27
*replace ponde with 718/25  for estrato=3 .and. estado=31
*replace ponde with 1488/25 for estrato=3 .and. estado=20
*replace ponde with 1714/25 for estrato=3 .and. estado=7
*replace ponde with 1230/25 for estrato=3 .and. estado=24
*replace ponde with 1087/25 for estrato=3 .and. estado=13
*replace ponde with 38/25   for estrato=3 .and. estado=9
replace ponde with 10/4*1714/25*11244/28058 for estrato=3 .and. estado=7
replace ponde with 10/4*1230/25*11244/28058 for estrato=3 .and. estado=24
replace ponde with 10/4*694/25*11244/28058  for estrato=3 .and. estado=27
replace ponde with 10/4*718/25*11244/28058  for estrato=3 .and. estado=31